equiv_substr.f90

来自「用于进行gcc测试」· F90 代码 · 共 11 行

! { dg-do compile }
!
! 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