diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-06-26 22:54:39 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-06-26 22:54:39 +0000 |
| commit | c6c15a14f330d552b88c48d83789464cbc639389 (patch) | |
| tree | 69810a57f1b7f200143e77ef4adb60931b412a54 /gcc/fortran/dump-parse-tree.c | |
| parent | cef62ad4b8a7639969639eaf77efb69fdcb7491f (diff) | |
| download | gcc-c6c15a14f330d552b88c48d83789464cbc639389.zip gcc-c6c15a14f330d552b88c48d83789464cbc639389.tar.gz gcc-c6c15a14f330d552b88c48d83789464cbc639389.tar.bz2 | |
re PR fortran/44678 (ICE with -fdump-parse-tree and select type)
2010-06-27 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44678
* dump-parse-tree.c (show_code_node): Show namespace for
EXEC_BLOCK.
From-SVN: r161444
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 940455d..9dc5070 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); |