Commit e288c49d by Steven G. Kargl

2019-10-23 Steven G. Kargl <kargl@gcc.gnu.org>

	dump-parse-tree.c (show_expr): Add dumping of BT_BOZ constants.

From-SVN: r277358
parent ca06b86c
2019-10-23 Steven G. Kargl <kargl@gcc.gnu.org>
dump-parse-tree.c (show_expr): Add dumping of BT_BOZ constants.
2019-10-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/92174
......
......@@ -559,6 +559,16 @@ show_expr (gfc_expr *p)
fputc (')', dumpfile);
break;
case BT_BOZ:
if (p->boz.rdx == 2)
fputs ("b'", dumpfile);
else if (p->boz.rdx == 8)
fputs ("o'", dumpfile);
else
fputs ("z'", dumpfile);
fprintf (dumpfile, "%s'", p->boz.str);
break;
case BT_HOLLERITH:
fprintf (dumpfile, HOST_WIDE_INT_PRINT_DEC "H",
p->representation.length);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment