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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 841aa66f378536e9b33706110cff017dcf7af100..5bb04d779eb979aacf24d4cf48686e9b31d5db50 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 9d7b26f5f6a16ccb29e029c8e0f8a351262c6aac..9d7aad19e2f5fdb16a81386097d8c96b855e8da7 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -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);