Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-O0" }

! PR20890 - Equivalence cannot contain overlapping unequal initializers.

! Contributed by Joost VandeVondele 

! Started out being in BLOCK DATA; however, blockdata variables must be in

! COMMON and therefore cannot have F95 style initializers....

 MODULE DATA

  INTEGER :: I=1,J=2  ! { dg-error "Overlapping unequal initializers" }

  EQUIVALENCE(I,J)

 END MODULE DATA

 END

! { dg-final { cleanup-modules "data" } }