gcc/testsuite/gfortran.dg/equiv_substr.f90


1
2
3
4
5
6
7
8
9
10
11

! { 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