Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-O0" }

! PR20890 - Equivalence cannot contain more than one initialized variables.

! 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

  EQUIVALENCE(I,J)  ! { dg-error "cannot both be in the EQUIVALENCE" }

 END MODULE DATA

 END