12 lines
240 B
Fortran
12 lines
240 B
Fortran
|
! { 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
|