2010-12-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/44352
* dump-parse-tree.c (show_symbol): Don't show formal namespace
for statement functions in order to avoid infinite recursion.
From-SVN: r167416
+2010-12-03 Thomas Koenig <tkoenig@gcc.gnu.org>
+
+ PR fortran/44352
+ * dump-parse-tree.c (show_symbol): Don't show formal namespace
+ for statement functions in order to avoid infinite recursion.
+
2010-12-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/45159
}
}
- if (sym->formal_ns && (sym->formal_ns->proc_name != sym))
+ if (sym->formal_ns && (sym->formal_ns->proc_name != sym)
+ && sym->attr.proc != PROC_ST_FUNCTION)
{
show_indent ();
fputs ("Formal namespace", dumpfile);