From 7a2d64030ce542300e70b0e55b3680a370394277 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Sat, 26 Jun 2010 22:54:39 +0000 Subject: 2010-06-27 Thomas Koenig PR fortran/44678 * dump-parse-tree.c (show_code_node): Show namespace for EXEC_BLOCK. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161444 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/dump-parse-tree.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gcc/fortran/dump-parse-tree.c') diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 940455dd054..9dc50709136 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -1177,6 +1177,7 @@ show_code_node (int level, gfc_code *c) gfc_filepos *fp; gfc_inquire *i; gfc_dt *dt; + gfc_namespace *ns; code_indent (level, c->here); @@ -1376,6 +1377,15 @@ show_code_node (int level, gfc_code *c) fputs ("ENDIF", dumpfile); break; + case EXEC_BLOCK: + show_indent (); + fputs ("BLOCK ", dumpfile); + ns = c->ext.block.ns; + show_namespace (ns); + show_indent (); + fputs ("END BLOCK ", dumpfile); + break; + case EXEC_SELECT: d = c->block; fputs ("SELECT CASE ", dumpfile); -- cgit v1.2.1