Subversion Repositories openrisc

! { dg-do compile }

! PR fortran/24549 (and duplicate PR fortran/27487)

module gfcbug29_import

  interface

     subroutine foo (x)

       something :: dp ! { dg-error "Unclassifiable statement" }

       real (kind=dp) :: x ! { dg-error "has not been declared or is a variable, which does not reduce to a constant expression" }

     end subroutine foo

  end interface

end module gfcbug29_import

subroutine FOO

    X :: I ! { dg-error "Unclassifiable statement" }

    equivalence (I,I)

end