Message ID | 1291379129.7162.6.camel@linux-fd1f.site |
---|---|
State | New |
Headers | show |
Index: dump-parse-tree.c =================================================================== --- dump-parse-tree.c (Revision 167365) +++ dump-parse-tree.c (Arbeitskopie) @@ -889,7 +889,8 @@ show_symbol (gfc_symbol *sym) } } - 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);