diff options
| author | Daniel Kraft <d@domob.eu> | 2009-05-14 22:02:46 +0200 |
|---|---|---|
| committer | Daniel Kraft <domob@gcc.gnu.org> | 2009-05-14 22:02:46 +0200 |
| commit | 240f9e94910cc024bcf02144420543b80a5e405e (patch) | |
| tree | e6e2f953e26cdbacaf8c906788f0f12c3f520487 | |
| parent | 6855fe452e1c8b5063fa9a57705987a02211b79c (diff) | |
| download | gcc-240f9e94910cc024bcf02144420543b80a5e405e.zip gcc-240f9e94910cc024bcf02144420543b80a5e405e.tar.gz gcc-240f9e94910cc024bcf02144420543b80a5e405e.tar.bz2 | |
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
| -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; } |