[Bug fortran/44882] [4.6 Regression] Bogus types in references with mismatched commons

[dominiq at lps dot ens dot fr]

------- Comment #12 from dominiq at lps dot ens dot fr  2010-07-09 14:35 -------
Reduced test case extracted from the polyhedron test mdbx.f90 that give an ICE
at revision 161959:

[karma] lin/test% cat mdbx_red.f90
!*==MASTER.spg  processed by SPAG 6.55Dc at 09:26 on 23 Sep 2005
      SUBROUTINE MASTER(Nsteps,Nlist,Method,Skin,Ncorr,Nprint)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      PARAMETER (NM=16384)
      COMMON /SCRATC/ DUMmy1(NM) , DUMmy2(NM) , DUMmy3(NM) , DUMmy4(NM)
      END
!*==CBUILD.spg  processed by SPAG 6.55Dc at 09:26 on 23 Sep 2005
      SUBROUTINE CBUILD(Ransq,Icode)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      PARAMETER (NM=16384)
      PARAMETER (LL=10*NM)
      COMMON /LISCOM/ LISt(LL) , MRKr1(NM) , MRKr2(NM) , LISlen
      COMMON /SCRATC/ DUMmy1(NM) , DUMmy2(NM) , DUMmy3(NM) , DUMmy4(NM)
      INTEGER MARk(NM)
      EQUIVALENCE (MARk,DUMmy1)
      EQUIVALENCE (KNTnts,DUMmy2)
      PARAMETER (NNEMAX=512)
      INTEGER neigh(NNEMAX)
      PARAMETER (KNTSIZ=3*NM)
      INTEGER KNTnts(KNTSIZ)
      DO icell = 0 , ncells - 1
         DO jpc = ipc + 1 , npc(icell)
            neigh(nneigc+jpc-ipc) = KNTnts(jpc+icoffs)
         ENDDO
         DO icand = 1 , nneigi
            LISt(nll) = neigh(icand)
            nll = nll + MARk(icand)
         ENDDO
      ENDDO
      END
[karma] lin/test% gfc -O3 mdbx_red.f90
mdbx_red.f90: In function 'cbuild':
mdbx_red.f90:8:0: internal compiler error: in vectorizable_load, at
tree-vect-stmts.c:3828


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44882