re PR fortran/27320 (ICE with -fdump-parse-tree after error)

PR fortran/27320
	* dump-parse-tree.c (gfc_show_code_node): Try harder to find the
	called procedure name.

From-SVN: r113855
This commit is contained in:
Francois-Xavier Coudert 2006-05-17 14:06:42 +02:00 committed by François-Xavier Coudert
parent e5db35150e
commit bfaacea7f5
2 changed files with 13 additions and 1 deletions

View File

@ -1,3 +1,9 @@
2006-05-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR fortran/27320
* dump-parse-tree.c (gfc_show_code_node): Try harder to find the
called procedure name.
2006-05-17 Jakub Jelinek <jakub@redhat.com>
PR middle-end/27415

View File

@ -1060,7 +1060,13 @@ gfc_show_code_node (int level, gfc_code * c)
break;
case EXEC_CALL:
if (c->resolved_sym)
gfc_status ("CALL %s ", c->resolved_sym->name);
else if (c->symtree)
gfc_status ("CALL %s ", c->symtree->name);
else
gfc_status ("CALL ?? ");
gfc_show_actual_arglist (c->ext.actual);
break;