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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
! RUN: %S/test_errors.sh %s %t %f18
subroutine s
type t
end type
interface
subroutine s1
import, none
!ERROR: IMPORT,NONE must be the only IMPORT statement in a scope
import, all
end subroutine
subroutine s2
import :: t
!ERROR: IMPORT,NONE must be the only IMPORT statement in a scope
import, none
end subroutine
subroutine s3
import, all
!ERROR: IMPORT,ALL must be the only IMPORT statement in a scope
import :: t
end subroutine
subroutine s4
import :: t
!ERROR: IMPORT,ALL must be the only IMPORT statement in a scope
import, all
end subroutine
end interface
end
module m
!ERROR: IMPORT is not allowed in a module scoping unit
import, none
end
submodule(m) sub1
import, all !OK
end
submodule(m) sub2
!ERROR: IMPORT,NONE is not allowed in a submodule scoping unit
import, none
end
function f
!ERROR: IMPORT is not allowed in an external subprogram scoping unit
import, all
end
subroutine sub2()
block
import, all !OK
end block
end
!ERROR: IMPORT is not allowed in a main program scoping unit
import
end
|
