2 ! { dg-options "-std=gnu" }
6 ! This program used to segfault, check this is fixed.
7 ! Also check that -std=gnu behaves as expected.
9 SUBROUTINE test1 (n
, arr
)
12 INTEGER :: arr(n
) ! { dg-bogus "used before it is typed" }
14 CHARACTER(len
=LEN(a
)) :: a
! { dg-error "used before it is typed" }
20 DATA str
/'abc'/ ! { dg-bogus "used before it is typed" }
21 CHARACTER(len
=3) :: str