Index: dump-parse-tree.c                         
===================================================================
--- dump-parse-tree.c   (Revision 174391)                          
+++ dump-parse-tree.c   (Arbeitskopie)                             
@@ -893,7 +893,8 @@                                                
     }                                                             

   if (sym->formal_ns && (sym->formal_ns->proc_name != sym)
-      && sym->attr.proc != PROC_ST_FUNCTION)
+      && sym->attr.proc != PROC_ST_FUNCTION
+      && !sym->attr.entry)
     {
       show_indent ();
       fputs ("Formal namespace", dumpfile);