From: Janus Weil <janus@gcc.gnu.org>
Date: Wed, 9 Jun 2010 18:38:11 +0000 (+0200)
Subject: re PR fortran/44430 (Infinite recursion with -fdump-parse-tree)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b51789feb00890d5d4b0e9ec7e10fb0c140709d1;p=gcc.git

re PR fortran/44430 (Infinite recursion with -fdump-parse-tree)

2010-06-09  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44430
	* dump-parse-tree.c (show_symbol): Avoid infinite loop.

From-SVN: r160504
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5e3ffdc52bb..05ec55d22a1 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-09  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/44430
+	* dump-parse-tree.c (show_symbol): Avoid infinite loop.
+
 2010-06-09  Steven G. Kargl  <kargl@gcc.gnu.org>
 
 	* fortran/symbol.c (check_conflict):  Remove an invalid conflict check.
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index e90b0941885..0163b6590c0 100644
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -853,7 +853,7 @@ show_symbol (gfc_symbol *sym)
 	}
     }
 
-  if (sym->formal_ns)
+  if (sym->formal_ns && (sym->formal_ns->proc_name != sym))
     {
       show_indent ();
       fputs ("Formal namespace", dumpfile);