Subversion Repositories openrisc

! { dg-do compile }

! { dg-shouldfail "Invalid use of IMPORT" }

! Test invalid uses of import

! PR fortran/29601

subroutine test()

  type myType3

    import ! { dg-error "only permitted in an INTERFACE body" }

    sequence

    integer :: i

  end type myType3

end subroutine test

program foo

  import ! { dg-error "only permitted in an INTERFACE body" }

  type myType

    sequence

    integer :: i

  end type myType

  type myType3

    sequence

    integer :: i

  end type myType3

  interface

    import ! { dg-error "only permitted in an INTERFACE body" }

    subroutine bar()

      import foob ! { dg-error "Cannot IMPORT 'foob' from host scoping unit" }

    end subroutine bar

    subroutine test()

      import :: ! { dg-error "Expecting list of named entities" }

    end subroutine test

  end interface

end program foo