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:
parent
e5db35150e
commit
bfaacea7f5
@ -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
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user