re PR fortran/40045 (ICE with type extension and -fdump-parse-tree)

2009-05-14  Daniel Kraft  <d@domob.eu>

	PR fortran/40045
	* dump-parse-tree.c (show_typebound): Fix missing adaption to new
	type-bound procedure storage structure.

From-SVN: r147540

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c768fed0f96ac10a1e219e1b7d9d3fe36e7a2639..864b09595550562f3cfec890e8353633707d48ab 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-05-14  Daniel Kraft  <d@domob.eu>
+
+       PR fortran/40045
+       * dump-parse-tree.c (show_typebound): Fix missing adaption to new
+       type-bound procedure storage structure.
+
 2009-05-14  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/39996

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index eb747c1bd6aec0b72f4b270a1981020a8c744370..e595e7fc971d61bc96f3d19db19cfa2fe0340ac8 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -680,9 +680,7 @@ show_components (gfc_symbol *sym)
 static void
 show_typebound (gfc_symtree* st)
 {
-  if (!st->n.tb)
-    return;
-
+  gcc_assert (st->n.tb);
   show_indent ();
 
   if (st->n.tb->is_generic)
@@ -708,7 +706,7 @@ show_typebound (gfc_symtree* st)
   else
     fputs (", PRIVATE", dumpfile);
 
-  fprintf (dumpfile, " :: %s => ", st->n.sym->name);
+  fprintf (dumpfile, " :: %s => ", st->name);
 
   if (st->n.tb->is_generic)
     {
@@ -739,7 +737,7 @@ show_f2k_derived (gfc_namespace* f2k)
     }
 
   /* Type-bound procedures.  */
-  gfc_traverse_symtree (f2k->sym_root, &show_typebound);
+  gfc_traverse_symtree (f2k->tb_sym_root, &show_typebound);
 
   --show_level;
 }