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  BLOCK DATA
   6   INTEGER :: I=1,J=2
   7   EQUIVALENCE(I,J)  ! { dg-error "cannot both be in the EQUIVALENCE" }
   8  END BLOCK DATA
   9  END