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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
! All of the following (up to PROGRAM) are okay:
!
subroutine sub
interface
subroutine sub_iterface()
!$omp assumes no_openmp_routines absent(simd) ! OK inferface of an external subroutine/subprogram
end
end interface
!$omp assumes no_openmp_routines absent(simd) ! OK external subroutine/subprogram
contains
subroutine inner_sub
!$omp assumes no_parallelism absent(teams) ! OK internal subroutine/subprogram
end
end
integer function func ()
!$omp assumes no_openmp_routines absent(simd) ! OK external function/subprogram
interface
integer function func_iterface()
!$omp assumes no_openmp_routines absent(simd) ! OK inferface of an external function/subprogram
end
end interface
func = 0
contains
integer function inner_func()
!$omp assumes no_parallelism absent(teams) ! OK internal function/subprogram
inner_sub2 = 0
end
end
module m
integer ::x
!$omp assumes contains(target) holds(x > 0.0)
interface
subroutine mod_mod_sub_iterface()
!$omp assumes no_openmp_routines absent(simd) ! OK inferface of an external subroutine/subprogram
end
integer function mod_mod_func_iterface()
!$omp assumes no_openmp_routines absent(error) ! OK inferface of an external subroutine/subprogram
end
end interface
contains
subroutine mod_sub
interface
subroutine mod_sub_iterface()
!$omp assumes no_openmp_routines absent(simd) ! OK inferface of an external subroutine/subprogram
end
end interface
!$omp assumes no_openmp_routines absent(simd) ! OK module subroutine/subprogram
contains
subroutine mod_inner_sub
!$omp assumes no_parallelism absent(teams) ! OK internal subroutine/subprogram
end
end
integer function mod_func ()
!$omp assumes no_openmp_routines absent(simd) ! OK module function/subprogram
interface
integer function mod_func_iterface()
!$omp assumes no_openmp_routines absent(simd) ! OK inferface of an external function/subprogram
end
end interface
mod_func = 0
contains
integer function mod_inner_func()
!$omp assumes no_parallelism absent(teams) ! OK internal function/subprogram
mod_inner_sub2 = 0
end
end
end module m
! PROGRAM - invalid as:
! main program is a program unit that is not a subprogram
!$omp assumes no_openmp absent(simd) ! { dg-error "must be in the specification part of a subprogram or module" }
block
! invalid: block
!$omp assumes no_openmp absent(target) ! { dg-error "must be in the specification part of a subprogram or module" }
end block
end
|
