This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: gfortran and equivalence produces internal compiler error

On Wed, Aug 31, 2016 at 03:20:25PM +0200, Rolf Sander wrote:
> Hello Dominique,
> 
> >> https://bugs.launchpad.net/bugs/1618799
> 
> >> Is this the right place?
> 
> > No, this is gfortran regression not an Ubuntu bug.
> > You need to file the report at
> > https://gcc.gnu.org/bugzilla/
> 
> Thanks for the link! I have now posted a bug report here:
> 
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77420
> 

Index: module.c
===================================================================
--- module.c    (revision 239833)
+++ module.c    (working copy)
@@ -4647,7 +4647,7 @@ load_equiv (void)
       }
 
     /* Check for duplicate equivalences being loaded from different modules */
-    duplicate = false;
+    duplicate = gfc_current_ns->equiv ? false:true;
     for (equiv = gfc_current_ns->equiv; equiv; equiv = equiv->next)
       {
        if (equiv->module && head->module



-- 
Steve
Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]