blob: 74cd5279b1fef8d9f1e6403809bc6f4d880712af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
! { 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
|
