From 335c0cea88452c302b52d1d7a7c58fa5476f7bd3 Mon Sep 17 00:00:00 2001 From: janus Date: Wed, 9 Jun 2010 18:38:11 +0000 Subject: [PATCH] 2010-06-09 Janus Weil 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/dump-parse-tree.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5e3ffdc..05ec55d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-06-09 Janus Weil + + PR fortran/44430 + * dump-parse-tree.c (show_symbol): Avoid infinite loop. + 2010-06-09 Steven G. Kargl * 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 e90b094..0163b65 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); -- 2.7.4