diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 8 |
2 files changed, 9 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c768fed..864b095 100644 --- 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 eb747c1..e595e7f 100644 --- 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; } |