34 lines
824 B
Fortran
34 lines
824 B
Fortran
|
! { 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
|