------- Comment #5 from paul dot richard dot thomas at cea dot fr 2005-11-10
14:46 -------
A give-away here is that inverting the order of the equivalence members, makes
the problem go away. The path below cures the problem but I have not regtested
yet.....
Paul T
Index: gcc/gcc/fortran/trans-decl.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/fortran/trans-decl.c,v
retrieving revision 1.73
diff -c -p -r1.73 trans-decl.c
*** gcc/gcc/fortran/trans-decl.c 25 Oct 2005 14:06:22 -0000 1.
--- gcc/gcc/fortran/trans-decl.c 10 Nov 2005 14:43:51 -0000
*************** gfc_create_module_variable (gfc_symbol *
*** 2297,2303 ****
return;
/* Equivalenced variables arrive here after creation. */
! if (sym->backend_decl && sym->equiv_built)
return;
if (sym->backend_decl)
--- 2297,2303 ----
return;
/* Equivalenced variables arrive here after creation. */
! if (sym->backend_decl && (sym->equiv_built || sym->attr.in_equivalence
return;
if (sym->backend_decl)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24223
