gcc/testsuite/gfortran.dg/equiv_constraint_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O0" }
   3 ! PR20890 - Equivalence cannot contain more than one initialized variables.
   4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   5 ! Started out being in BLOCK DATA; however, blockdata variables must be in
   6 ! COMMON and therefore cannot have F95 style initializers....
   7  MODULE DATA
   8   INTEGER :: I=1,J=2
   9   EQUIVALENCE(I,J)  ! { dg-error "cannot both be in the EQUIVALENCE" }
  10  END MODULE DATA
  11  END