gcc/testsuite/gfortran.dg/equiv_constraint_3.f90

   1 ! { dg-do compile }
   2 ! PR20900 - USE associated variables cannot be equivalenced.
   3 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   4 MODULE TEST
   5  INTEGER :: I
   6 END MODULE
   7 ! note 11.7
   8 USE TEST, ONLY : K=>I
   9 INTEGER :: L
  10 EQUIVALENCE(K,L) ! { dg-error "conflicts with USE ASSOCIATED attribute" }
  11 END
  12
  13 ! { dg-final { cleanup-modules "TEST" } }