OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Daniel Kraft 2009-05-14 22:02:46 +02:00 committed by Daniel Kraft
parent 6855fe452e
commit 240f9e9491
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

8
gcc/fortran/dump-parse-tree.c
View File

@ -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;
}