dump-parse-tree.c (show_code_node): Add ERRMSG to the dumping of allocate and dealloc...

2009-05-14  Steven G. Kargl  <kargl@gcc.gnu.org>

    * dump-parse-tree.c (show_code_node): Add ERRMSG to the dumping
    of allocate and deallocate statements.

From-SVN: r147545

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 587123937b7d1334c734d03dbe436897a4703063..5b963a1d53267d2af55e612346c64346af13648b 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-05-14  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       * dump-parse-tree.c (show_code_node): Add ERRMSG to the dumping
+       of allocate and deallocate statements.
+
 2009-05-14  Ian Lance Taylor  <iant@google.com>
 
        * decl.c (match_attr_spec): Change d to unsigned int.

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 26a8e08a649d0f9d94efd3e98b150c2fe0335f3d..f6de8e824bc3897232544b863d6772fceaf6c098 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -1420,6 +1420,12 @@ show_code_node (int level, gfc_code *c)
          show_expr (c->expr1);
        }
 
+      if (c->expr2)
+       {
+         fputs (" ERRMSG=", dumpfile);
+         show_expr (c->expr2);
+       }
+
       for (a = c->ext.alloc_list; a; a = a->next)
        {
          fputc (' ', dumpfile);
@@ -1436,6 +1442,12 @@ show_code_node (int level, gfc_code *c)
          show_expr (c->expr1);
        }
 
+      if (c->expr2)
+       {
+         fputs (" ERRMSG=", dumpfile);
+         show_expr (c->expr2);
+       }
+
       for (a = c->ext.alloc_list; a; a = a->next)
        {
          fputc (' ', dumpfile);