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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
! Check for ORDER([order-modifier :]concurrent) clause on OpenMP constructs
subroutine test_do_order()
integer :: i, j = 1
!CHECK: !$omp do order(concurrent)
!$omp do order(concurrent)
do i=1,10
j = j + 1
end do
!$omp end do
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = do
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_simd_order_reproducible()
integer :: i, j = 1
!CHECK: !$omp simd order(reproducible:concurrent)
!$omp simd order(reproducible:concurrent)
do i=1,10
j = j + 1
end do
!$omp end simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Reproducible
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_do_simd_order_unconstrained()
integer :: i, j = 1
!CHECK: !$omp do simd order(unconstrained:concurrent)
!$omp do simd order(unconstrained:concurrent)
do i=1,10
j = j + 1
end do
!$omp end do simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = do simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Unconstrained
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_parallel_do_order()
integer :: i, j = 1
!CHECK: !$omp parallel do order(concurrent)
!$omp parallel do order(concurrent)
do i=1,10
j = j + 1
end do
!$omp end parallel do
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = parallel do
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_parallel_do_simd_order_reproducible()
integer :: i, j = 1
!CHECK: !$omp parallel do simd order(reproducible:concurrent)
!$omp parallel do simd order(reproducible:concurrent)
do i=1,10
j = j + 1
end do
!$omp end parallel do simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = parallel do simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Reproducible
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_simd_order_unconstrained()
integer :: i, j = 1
!CHECK: !$omp target simd order(unconstrained:concurrent)
!$omp target simd order(unconstrained:concurrent)
do i=1,10
j = j + 1
end do
!$omp end target simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Unconstrained
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_parallel_do_order()
integer :: i, j = 1
!CHECK: !$omp target parallel do order(concurrent)
!$omp target parallel do order(concurrent)
do i=1,10
j = j + 1
end do
!$omp end target parallel do
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target parallel do
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_parallel_do_simd_order_reproducible()
integer :: i, j = 1
!CHECK: !$omp target parallel do simd order(reproducible:concurrent)
!$omp target parallel do simd order(reproducible:concurrent)
do i=1,10
j = j + 1
end do
!$omp end target parallel do simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target parallel do simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Reproducible
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_teams_distribute_simd_order_unconstrained()
integer :: i, j = 1
!CHECK: !$omp teams distribute simd order(unconstrained:concurrent)
!$omp teams distribute simd order(unconstrained:concurrent)
do i=1,10
j = j + 1
end do
!$omp end teams distribute simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = teams distribute simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Unconstrained
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_teams_distribute_parallel_do_order()
integer :: i, j = 1
!CHECK: !$omp teams distribute parallel do order(concurrent)
!$omp teams distribute parallel do order(concurrent)
do i=1,10
j = j + 1
end do
!$omp end teams distribute parallel do
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = teams distribute parallel do
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_teams_distribute_parallel_do_simd_order_reproducible()
integer :: i, j = 1
!CHECK: !$omp teams distribute parallel do simd order(reproducible:concurrent)
!$omp teams distribute parallel do simd order(reproducible:concurrent)
do i=1,10
j = j + 1
end do
!$omp end teams distribute parallel do simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = teams distribute parallel do simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Reproducible
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_teams_distribute_simd_order_unconstrained()
integer :: i, j = 1
!CHECK: !$omp target teams distribute simd order(unconstrained:concurrent)
!$omp target teams distribute simd order(unconstrained:concurrent)
do i=1,10
j = j + 1
end do
!$omp end target teams distribute simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target teams distribute simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Unconstrained
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_teams_distribute_parallel_do_order()
integer :: i, j = 1
!CHECK: !$omp target teams distribute parallel do order(concurrent)
!$omp target teams distribute parallel do order(concurrent)
do i=1,10
j = j + 1
end do
!$omp end target teams distribute parallel do
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target teams distribute parallel do
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_target_teams_distribute_parallel_do_simd_order_reproducible()
integer :: i, j = 1
!CHECK: !$omp target teams distribute parallel do simd order(reproducible:concurrent)
!$omp target teams distribute parallel do simd order(reproducible:concurrent)
do i=1,10
j = j + 1
end do
!$omp end target teams distribute parallel do simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = target teams distribute parallel do simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Reproducible
!PARSE-TREE-NEXT: Type = Concurrent
subroutine test_taskloop_simd_order_unconstrained()
integer :: i, j = 1
!CHECK: !$omp taskloop simd order(unconstrained:concurrent)
!$omp taskloop simd order(unconstrained:concurrent)
do i=1,10
j = j + 1
end do
!$omp end taskloop simd
end subroutine
!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct
!PARSE-TREE-NEXT: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpLoopDirective -> llvm::omp::Directive = taskloop simd
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Order -> OmpOrderClause
!PARSE-TREE-NEXT: Kind = Unconstrained
!PARSE-TREE-NEXT: Type = Concurrent
|
