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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 2e4f8fb3eb189109195238ffe16528288b168197..547a85f5baece8336257a676455b8c99fa1f3e08 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 06322d427719695ee2b8f2cc2b7aba475a16f87a..adec12f4c36c9253658e220be4b94be463d43348 100644 (file)
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -1060,7 +1060,13 @@ gfc_show_code_node (int level, gfc_code * c)
       break;
 
     case EXEC_CALL:
-      gfc_status ("CALL %s ", c->resolved_sym->name);
+      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;