summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/equiv_substr.f90
blob: bad3a3a20e88b542c47e8c208193202bb236a2b0 (plain)
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