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

gcc/fortran/ChangeLog

+2010-06-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/44678
+	* dump-parse-tree.c (show_code_node):  Show namespace for
+	EXEC_BLOCK.
+
 2010-06-26  Tobias Burnus  <burnus@net-b.de>
 
 	* decl.c (gfc_match_decl_type_spec): Support

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