blob: 74cd5279b1fef8d9f1e6403809bc6f4d880712af [file] [log] [blame]
! { 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