Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-options "-std=gnu" }

! PR fortran/32095

! PR fortran/34228

! This program used to segfault, check this is fixed.

! Also check that -std=gnu behaves as expected.

SUBROUTINE test1 (n, arr)

  IMPLICIT NONE

  INTEGER :: arr(n) ! { dg-bogus "used before it is typed" }

  INTEGER :: n

  CHARACTER(len=LEN(a)) :: a ! { dg-error "used before it is typed" }

END SUBROUTINE test1

SUBROUTINE test2 ()

  IMPLICIT NONE

  DATA str/'abc'/ ! { dg-bogus "used before it is typed" }

  CHARACTER(len=3) :: str

END SUBROUTINE test2