RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / equiv_substr.f90
blobbad3a3a20e88b542c47e8c208193202bb236a2b0
1 ! { dg-do compile }
2 ! { dg-options "-std=legacy" }
4 ! PR fortran/34557
6 ! Substrings with space before '(' were not properly parsed.
8 implicit none
9 character :: A(2,2)*2, B(2)*3, C*5
10 equivalence (A (2,1) (1:1), B (1) (2:3), C (3:5))
11 end