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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160504 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5e3ffdc52bb654edad4802ad92a7de3a34315d48..05ec55d22a1d4076ffa53a4cda1ecd828a98bd7f 100644 (file)
--- 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 e90b094188525318c4abf5436b2f9a4c00b1a110..0163b6590c01724bbdcf21bd1951343f68632226 100644 (file)
--- 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);