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

login
register
mail settings
Submitter Thomas Koenig
Date June 5, 2011, 6:53 p.m.
Message ID <4DEBD09D.9040405@netcologne.de>
Download mbox | patch
Permalink /patch/98775/
State New
Headers show

Comments

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!

	Thomas

2011-06-05  Andreas Schmidt  <andreas.schmidt.42@gmx.net>
         Thomas Koenig  <tkoenig@gcc.gnu.org>


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

Patch

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