From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Wed, 17 May 2006 12:06:42 +0000 (+0200)
Subject: re PR fortran/27320 (ICE with -fdump-parse-tree after error)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bfaacea7f5448103e422119bd0f17b475f79dcd2;p=gcc.git

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 2e4f8fb3eb1..547a85f5bae 100644
--- 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 06322d42771..adec12f4c36 100644
--- 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;