blob: bad3a3a20e88b542c47e8c208193202bb236a2b0 [file] [log] [blame]
! { 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