Subversion Repositories openrisc

! { 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