gcc/testsuite/gfortran.dg/equiv_substr.f90 - gcc - Git at Google

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