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
|