1 /* PR middle-end/61486 */
2 /* { dg-do compile } */
3 /* { dg-require-effective-target alloca } */
4
5 #pragma omp declare target
6 void dosomething (int *a, int n, int m);
7 #pragma omp end declare target
8
9 void
10 test (int n, int o, int p, int q, int r, int s, int *pp)
11 {
12 int a[o], i, j;
13 #pragma omp target data device (n + 1) if (n != 6) map (tofrom: n, r)
14 {
15 #pragma omp target device (n + 1) if (n != 6) map (from: n) map (alloc: a[2:o-2])
16 dosomething (a, n, 0);
17 #pragma omp target teams device (n + 1) num_teams (n + 4) thread_limit (n * 2) \
18 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
19 private (p) firstprivate (q) shared (n) reduction (+: r)
20 {
21 r = r + 1;
22 p = q;
23 dosomething (a, n, p + q);
24 }
25 #pragma omp target teams distribute device (n + 1) num_teams (n + 4) collapse (2) \
26 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
27 private (p) firstprivate (q) shared (n) reduction (+: r) \
28 thread_limit (n * 2) dist_schedule (static, 4)
29 for (i = 0; i < 10; i++)
30 for (j = 0; j < 10; j++)
31 {
32 r = r + 1;
33 p = q;
34 dosomething (a, n, p + q);
35 }
36 #pragma omp target teams distribute device (n + 1) num_teams (n + 4) \
37 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
38 private (p) firstprivate (q) shared (n) reduction (+: r) \
39 thread_limit (n * 2) dist_schedule (static, 4)
40 for (i = 0; i < 10; i++)
41 for (j = 0; j < 10; j++)
42 {
43 r = r + 1;
44 p = q;
45 dosomething (a, n, p + q);
46 }
47 #pragma omp target teams distribute parallel for device (n + 1) num_teams (n + 4) \
48 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
49 private (p) firstprivate (q) shared (n) reduction (+: r) \
50 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
51 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
52 schedule (static, 8)
53 for (i = 0; i < 10; i++)
54 for (j = 0; j < 10; j++)
55 {
56 r = r + 1;
57 p = q;
58 dosomething (a, n, p + q);
59 p = q;
60 s = i * 10 + j;
61 }
62 #pragma omp target teams distribute parallel for device (n + 1) num_teams (n + 4) \
63 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
64 private (p) firstprivate (q) shared (n) reduction (+: r) \
65 thread_limit (n * 2) dist_schedule (static, 4) num_threads (n + 4) \
66 proc_bind (master) lastprivate (s) schedule (static, 8)
67 for (i = 0; i < 10; i++)
68 {
69 for (j = 0; j < 10; j++)
70 {
71 r = r + 1;
72 p = q;
73 dosomething (a, n, p + q);
74 }
75 p = q;
76 s = i * 10;
77 }
78 #pragma omp target teams distribute parallel for simd device (n + 1) \
79 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
80 private (p) firstprivate (q) shared (n) reduction (+: r) \
81 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
82 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
83 schedule (static, 8) num_teams (n + 4) safelen(8)
84 for (i = 0; i < 10; i++)
85 for (j = 0; j < 10; j++)
86 {
87 r = r + 1;
88 p = q;
89 a[2+i*10+j] = p + q;
90 s = i * 10 + j;
91 }
92 #pragma omp target teams distribute parallel for simd device (n + 1) \
93 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
94 private (p) firstprivate (q) shared (n) reduction (+: r) \
95 thread_limit (n * 2) dist_schedule (static, 4) num_threads (n + 4) \
96 proc_bind (master) lastprivate (s) schedule (static, 8) \
97 num_teams (n + 4) safelen(16) linear(i:1) aligned (pp:4)
98 for (i = 0; i < 10; i++)
99 {
100 r = r + 1;
101 p = q;
102 a[2+i] = p + q;
103 s = i * 10;
104 }
105 #pragma omp target teams distribute simd device (n + 1) \
106 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
107 private (p) firstprivate (q) shared (n) reduction (+: r) \
108 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
109 lastprivate (s) num_teams (n + 4) safelen(8)
110 for (i = 0; i < 10; i++)
111 for (j = 0; j < 10; j++)
112 {
113 r = r + 1;
114 p = q;
115 a[2+i*10+j] = p + q;
116 s = i * 10 + j;
117 }
118 #pragma omp target teams distribute simd device (n + 1) \
119 if (n != 6)map (from: n) map (alloc: a[2:o-2]) default(shared) \
120 private (p) firstprivate (q) shared (n) reduction (+: r) \
121 thread_limit (n * 2) dist_schedule (static, 4) lastprivate (s) \
122 num_teams (n + 4) safelen(16) linear(i:1) aligned (pp:4)
123 for (i = 0; i < 10; i++)
124 {
125 r = r + 1;
126 p = q;
127 a[2+i] = p + q;
128 s = i * 10;
129 }
130 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
131 #pragma omp teams num_teams (n + 4) thread_limit (n * 2) default(shared) \
132 private (p) firstprivate (q) shared (n) reduction (+: r)
133 {
134 r = r + 1;
135 p = q;
136 dosomething (a, n, p + q);
137 }
138 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
139 #pragma omp teams distribute num_teams (n + 4) collapse (2) default(shared) \
140 private (p) firstprivate (q) shared (n) reduction (+: r) \
141 thread_limit (n * 2) dist_schedule (static, 4)
142 for (i = 0; i < 10; i++)
143 for (j = 0; j < 10; j++)
144 {
145 r = r + 1;
146 p = q;
147 dosomething (a, n, p + q);
148 }
149 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
150 #pragma omp teams distribute num_teams (n + 4) default(shared) \
151 private (p) firstprivate (q) shared (n) reduction (+: r) \
152 thread_limit (n * 2) dist_schedule (static, 4)
153 for (i = 0; i < 10; i++)
154 for (j = 0; j < 10; j++)
155 {
156 r = r + 1;
157 p = q;
158 dosomething (a, n, p + q);
159 }
160 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
161 #pragma omp teams distribute parallel for num_teams (n + 4) if (n != 6) \
162 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
163 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
164 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
165 schedule (static, 8)
166 for (i = 0; i < 10; i++)
167 for (j = 0; j < 10; j++)
168 {
169 r = r + 1;
170 p = q;
171 dosomething (a, n, p + q);
172 p = q;
173 s = i * 10 + j;
174 }
175 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
176 #pragma omp teams distribute parallel for num_teams (n + 4) if (n != 6) \
177 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
178 thread_limit (n * 2) dist_schedule (static, 4) num_threads (n + 4) \
179 proc_bind (master) lastprivate (s) schedule (static, 8)
180 for (i = 0; i < 10; i++)
181 {
182 for (j = 0; j < 10; j++)
183 {
184 r = r + 1;
185 p = q;
186 dosomething (a, n, p + q);
187 }
188 p = q;
189 s = i * 10;
190 }
191 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
192 #pragma omp teams distribute parallel for simd if (n != 6)default(shared) \
193 private (p) firstprivate (q) shared (n) reduction (+: r) \
194 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
195 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
196 schedule (static, 8) num_teams (n + 4) safelen(8)
197 for (i = 0; i < 10; i++)
198 for (j = 0; j < 10; j++)
199 {
200 r = r + 1;
201 p = q;
202 a[2+i*10+j] = p + q;
203 s = i * 10 + j;
204 }
205 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
206 #pragma omp teams distribute parallel for simd if (n != 6)default(shared) \
207 private (p) firstprivate (q) shared (n) reduction (+: r) \
208 thread_limit (n * 2) dist_schedule (static, 4) num_threads (n + 4) \
209 proc_bind (master) lastprivate (s) schedule (static, 8) \
210 num_teams (n + 4) safelen(16) linear(i:1) aligned (pp:4)
211 for (i = 0; i < 10; i++)
212 {
213 r = r + 1;
214 p = q;
215 a[2+i] = p + q;
216 s = i * 10;
217 }
218 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
219 #pragma omp teams distribute parallel for simd if (n != 6)default(shared) \
220 private (p) firstprivate (q) shared (n) reduction (+: r) \
221 thread_limit (n * 2) dist_schedule (static, 4) num_threads (n + 4) \
222 proc_bind (primary) lastprivate (s) schedule (static, 8) \
223 num_teams (n + 4) safelen(16) linear(i:1) aligned (pp:4)
224 for (i = 0; i < 10; i++)
225 {
226 r = r + 1;
227 p = q;
228 a[2+i] = p + q;
229 s = i * 10;
230 }
231 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
232 #pragma omp teams distribute simd default(shared) \
233 private (p) firstprivate (q) shared (n) reduction (+: r) \
234 thread_limit (n * 2) dist_schedule (static, 4) collapse (2) \
235 lastprivate (s) num_teams (n + 4) safelen(8)
236 for (i = 0; i < 10; i++)
237 for (j = 0; j < 10; j++)
238 {
239 r = r + 1;
240 p = q;
241 a[2+i*10+j] = p + q;
242 s = i * 10 + j;
243 }
244 #pragma omp target device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2])
245 #pragma omp teams distribute simd default(shared) \
246 private (p) firstprivate (q) shared (n) reduction (+: r) \
247 thread_limit (n * 2) dist_schedule (static, 4) lastprivate (s) \
248 num_teams (n + 4) safelen(16) linear(i:1) aligned (pp:4)
249 for (i = 0; i < 10; i++)
250 {
251 r = r + 1;
252 p = q;
253 a[2+i] = p + q;
254 s = i * 10;
255 }
256 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
257 num_teams (n + 4) thread_limit (n * 2)default(shared) shared(n) \
258 private (p) reduction (+: r)
259 #pragma omp distribute collapse (2) dist_schedule (static, 4) firstprivate (q)
260 for (i = 0; i < 10; i++)
261 for (j = 0; j < 10; j++)
262 {
263 r = r + 1;
264 p = q;
265 dosomething (a, n, p + q);
266 }
267 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
268 num_teams (n + 4) thread_limit (n * 2) shared(n) private(p) reduction (+ : r) \
269 default(shared)
270 #pragma omp distribute dist_schedule (static, 4) firstprivate (q)
271 for (i = 0; i < 10; i++)
272 for (j = 0; j < 10; j++)
273 {
274 r = r + 1;
275 p = q;
276 dosomething (a, n, p + q);
277 }
278 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
279 num_teams (n + 4) thread_limit (n * 2)
280 #pragma omp distribute parallel for if (n != 6) \
281 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
282 collapse (2) dist_schedule (static, 4) \
283 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
284 schedule (static, 8)
285 for (i = 0; i < 10; i++)
286 for (j = 0; j < 10; j++)
287 {
288 r = r + 1;
289 p = q;
290 dosomething (a, n, p + q);
291 p = q;
292 s = i * 10 + j;
293 }
294 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
295 num_teams (n + 4) thread_limit (n * 2)
296 #pragma omp distribute parallel for if (n != 6) \
297 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
298 num_threads (n + 4) dist_schedule (static, 4) \
299 proc_bind (master) lastprivate (s) schedule (static, 8)
300 for (i = 0; i < 10; i++)
301 {
302 for (j = 0; j < 10; j++)
303 {
304 r = r + 1;
305 p = q;
306 dosomething (a, n, p + q);
307 }
308 p = q;
309 s = i * 10;
310 }
311 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
312 num_teams (n + 4) thread_limit (n * 2)
313 #pragma omp distribute parallel for simd if (n != 6)default(shared) \
314 private (p) firstprivate (q) shared (n) reduction (+: r) \
315 collapse (2) dist_schedule (static, 4) \
316 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
317 schedule (static, 8) safelen(8)
318 for (i = 0; i < 10; i++)
319 for (j = 0; j < 10; j++)
320 {
321 r = r + 1;
322 p = q;
323 a[2+i*10+j] = p + q;
324 s = i * 10 + j;
325 }
326 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
327 num_teams (n + 4) thread_limit (n * 2)
328 #pragma omp distribute parallel for simd if (n != 6)default(shared) \
329 private (p) firstprivate (q) shared (n) reduction (+: r) \
330 num_threads (n + 4) dist_schedule (static, 4) \
331 proc_bind (master) lastprivate (s) schedule (static, 8) \
332 safelen(16) linear(i:1) aligned (pp:4)
333 for (i = 0; i < 10; i++)
334 {
335 r = r + 1;
336 p = q;
337 a[2+i] = p + q;
338 s = i * 10;
339 }
340 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
341 num_teams (n + 4) thread_limit (n * 2) default(shared) shared(n) private(p) \
342 reduction(+:r)
343 #pragma omp distribute simd private (p) firstprivate (q) reduction (+: r) \
344 collapse (2) dist_schedule (static, 4) lastprivate (s) safelen(8)
345 for (i = 0; i < 10; i++)
346 for (j = 0; j < 10; j++)
347 {
348 r = r + 1;
349 p = q;
350 a[2+i*10+j] = p + q;
351 s = i * 10 + j;
352 }
353 #pragma omp target teams device (n + 1) if (n != 6)map(from:n) map(alloc:a[2:o-2]) \
354 num_teams (n + 4) thread_limit (n * 2) default(shared) shared(n) private(p) \
355 reduction(+:r)
356 #pragma omp distribute simd private (p) firstprivate (q) reduction (+: r) \
357 lastprivate (s) dist_schedule (static, 4) safelen(16) linear(i:1) aligned (pp:4)
358 for (i = 0; i < 10; i++)
359 {
360 r = r + 1;
361 p = q;
362 a[2+i] = p + q;
363 s = i * 10;
364 }
365 }
366 }
367
368 int q, i, j;
369
370 #pragma omp declare target
371 int s;
372
373 void
374 test2 (int n, int o, int p, int r, int *pp)
375 {
376 int a[o];
377 #pragma omp distribute collapse (2) dist_schedule (static, 4) firstprivate (q)
378 for (i = 0; i < 10; i++)
379 for (j = 0; j < 10; j++)
380 {
381 r = r + 1;
382 p = q;
383 dosomething (a, n, p + q);
384 }
385 #pragma omp distribute dist_schedule (static, 4) firstprivate (q)
386 for (i = 0; i < 10; i++)
387 for (j = 0; j < 10; j++)
388 {
389 r = r + 1;
390 p = q;
391 dosomething (a, n, p + q);
392 }
393 #pragma omp distribute parallel for if (n != 6) \
394 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
395 collapse (2) dist_schedule (static, 4) \
396 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
397 schedule (static, 8)
398 for (i = 0; i < 10; i++)
399 for (j = 0; j < 10; j++)
400 {
401 r = r + 1;
402 p = q;
403 dosomething (a, n, p + q);
404 p = q;
405 s = i * 10 + j;
406 }
407 #pragma omp distribute parallel for if (n != 6) \
408 default(shared) private (p) firstprivate (q) shared (n) reduction (+: r) \
409 num_threads (n + 4) dist_schedule (static, 4) \
410 proc_bind (master) lastprivate (s) schedule (static, 8)
411 for (i = 0; i < 10; i++)
412 {
413 for (j = 0; j < 10; j++)
414 {
415 r = r + 1;
416 p = q;
417 dosomething (a, n, p + q);
418 }
419 p = q;
420 s = i * 10;
421 }
422 #pragma omp distribute parallel for simd if (n != 6)default(shared) \
423 private (p) firstprivate (q) shared (n) reduction (+: r) \
424 collapse (2) dist_schedule (static, 4) \
425 num_threads (n + 4) proc_bind (spread) lastprivate (s) \
426 schedule (static, 8) safelen(8)
427 for (i = 0; i < 10; i++)
428 for (j = 0; j < 10; j++)
429 {
430 r = r + 1;
431 p = q;
432 a[2+i*10+j] = p + q;
433 s = i * 10 + j;
434 }
435 #pragma omp distribute parallel for simd if (n != 6)default(shared) \
436 private (p) firstprivate (q) shared (n) reduction (+: r) \
437 num_threads (n + 4) dist_schedule (static, 4) \
438 proc_bind (master) lastprivate (s) schedule (static, 8) \
439 safelen(16) linear(i:1) aligned (pp:4)
440 for (i = 0; i < 10; i++)
441 {
442 r = r + 1;
443 p = q;
444 a[2+i] = p + q;
445 s = i * 10;
446 }
447 #pragma omp distribute simd private (p) firstprivate (q) reduction (+: r) \
448 collapse (2) dist_schedule (static, 4) lastprivate (s) safelen(8)
449 for (i = 0; i < 10; i++)
450 for (j = 0; j < 10; j++)
451 {
452 r = r + 1;
453 p = q;
454 a[2+i*10+j] = p + q;
455 s = i * 10 + j;
456 }
457 #pragma omp distribute simd private (p) firstprivate (q) reduction (+: r) \
458 lastprivate (s) dist_schedule (static, 4) safelen(16) linear(i:1) aligned (pp:4)
459 for (i = 0; i < 10; i++)
460 {
461 r = r + 1;
462 p = q;
463 a[2+i] = p + q;
464 s = i * 10;
465 }
466 }
467 #pragma omp end declare target