gcc/testsuite/gfortran.dg/equiv_substr.f90

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