diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-26 22:54:39 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-26 22:54:39 +0000 |
| commit | 7a2d64030ce542300e70b0e55b3680a370394277 (patch) | |
| tree | 69810a57f1b7f200143e77ef4adb60931b412a54 /gcc/fortran/dump-parse-tree.c | |
| parent | 970e188109979ac7804709216a4733dd7818d483 (diff) | |
| download | gcc-7a2d64030ce542300e70b0e55b3680a370394277.tar.gz | |
2010-06-27 Thomas Koenig <tkoenig@gcc.gnu.org>
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
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 10 |
1 files changed, 10 insertions, 0 deletions
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); |