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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
! Cross check that it is accepted without nowait
subroutine bar()
implicit none
integer :: i, a(5)
!$omp atomic write
i = 5
!$omp end atomic
!$omp critical
!$omp end critical
!$omp distribute
do i = 1, 5
end do
!$omp end distribute
!$omp distribute parallel do
do i = 1, 5
end do
!$omp end distribute parallel do
!$omp distribute parallel do simd
do i = 1, 5
end do
!$omp end distribute parallel do simd
!$omp distribute simd
do i = 1, 5
end do
!$omp end distribute simd
!$omp masked
!$omp end masked
!$omp masked taskloop
do i = 1, 5
end do
!$omp end masked taskloop
!$omp masked taskloop simd
do i = 1, 5
end do
!$omp end masked taskloop simd
!$omp master
!$omp end master
!$omp master taskloop
do i = 1, 5
end do
!$omp end master taskloop
!$omp master taskloop simd
do i = 1, 5
end do
!$omp end master taskloop simd
!$omp ordered
!$omp end ordered
!$omp parallel
!$omp end parallel
!$omp parallel workshare
a(:) = 5
!$omp end parallel workshare
!$omp parallel do
do i = 1, 5
end do
!$omp end parallel do
!$omp parallel do simd
do i = 1, 5
end do
!$omp end parallel do simd
!$omp parallel sections
!$omp section
block; end block
!$omp end parallel sections
!$omp parallel masked
!$omp end parallel masked
!$omp parallel masked taskloop
do i = 1, 5
end do
!$omp end parallel masked taskloop
!$omp parallel masked taskloop simd
do i = 1, 5
end do
!$omp end parallel masked taskloop simd
!$omp parallel master
!$omp end parallel master
!$omp parallel master taskloop
do i = 1, 5
end do
!$omp end parallel master taskloop
!$omp parallel master taskloop simd
do i = 1, 5
end do
!$omp end parallel master taskloop simd
!$omp simd
do i = 1, 5
end do
!$omp end simd
!$omp task
!$omp end task
!$omp taskgroup
!$omp end taskgroup
!$omp taskloop
do i = 1, 5
end do
!$omp end taskloop
!$omp taskloop simd
do i = 1, 5
end do
!$omp end taskloop simd
!$omp teams
!$omp end teams
!$omp teams distribute
do i = 1, 5
end do
!$omp end teams distribute
!$omp teams distribute parallel do
do i = 1, 5
end do
!$omp end teams distribute parallel do
!$omp teams distribute parallel do simd
do i = 1, 5
end do
!$omp end teams distribute parallel do simd
!$omp teams distribute simd
do i = 1, 5
end do
!$omp end teams distribute simd
!$omp target data map(tofrom:i)
!$omp end target data
end
|
