never ending output from -fdump-fortran-original on ENTRY statement

Message ID
State New
Headers show

Commit Message

Thomas Koenig June 5, 2011, 6:53 p.m.
Hi Andreas,

I have committed your patch with a slight variation to trunk as
obvious after regression-testting.  Will commit to 4.6 in a few
days.  No test case because we can't do test cases with -fdump-fortran-*
at the moment.

This patch is small enough so it does not need a copyright assignment,
but you might want to consider obtaining one just the same.

Thanks for working on this!


2011-06-05  Andreas Schmidt  <>
         Thomas Koenig  <>

         * dump-parse-tree.c (show_symbol):  Don't dump namespace
         for ENTRY to avoid infinite recursion.


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);