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
This commit is contained in:
parent
6855fe452e
commit
240f9e9491
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user