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> 2019-10-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/92174 PR fortran/92174
......
...@@ -559,6 +559,16 @@ show_expr (gfc_expr *p) ...@@ -559,6 +559,16 @@ show_expr (gfc_expr *p)
fputc (')', dumpfile); fputc (')', dumpfile);
break; 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: case BT_HOLLERITH:
fprintf (dumpfile, HOST_WIDE_INT_PRINT_DEC "H", fprintf (dumpfile, HOST_WIDE_INT_PRINT_DEC "H",
p->representation.length); 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