gcc/testsuite/gfortran.dg/equiv_substr.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34557
   4 !
   5 ! Substrings with space before '(' were not properly parsed.
   6 !
   7 implicit none
   8 character :: A(2,2)*2, B(2)*3, C*5
   9 equivalence (A (2,1) (1:1), B (1) (2:3), C (3:5))
  10 end