From patchwork Sun Jun  5 18:53:17 2011
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: never ending output from -fdump-fortran-original on ENTRY statement
Date: Sun, 05 Jun 2011 08:53:17 -0000
From: Thomas Koenig <tkoenig@netcologne.de>
X-Patchwork-Id: 98775
Message-Id: <4DEBD09D.9040405@netcologne.de>
To: Andreas Schmidt <andreas.schmidt.42@gmx.net>
Cc: fortran@gcc.gnu.org, gcc-patches@gcc.gnu.org

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.


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