gcc/testsuite/gfortran.dg/substring_equivalence.f90

   1 ! { dg-do compile }
   2 ! Tests fix for PR24223 - ICE on equivalence statement.
   3 !
   4 module FLAGS
   5   character(len=5) :: Encodings
   6   character :: at, dev
   7   equivalence ( encodings(1:1),at ), ( encodings(2:2),dev)
   8 end module FLAGS
   9
  10 ! { dg-final { cleanup-modules "FLAGS" } }