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

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

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

gcc/fortran/ChangeLog

+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.

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);