|
111
|
1 /* { dg-do compile } */
|
|
|
2 /* { dg-options "-fopenmp" } */
|
|
|
3
|
|
|
4 void
|
|
|
5 foo (int a, int b, int *p, int *q, int task)
|
|
|
6 {
|
|
|
7 int i;
|
|
|
8 #pragma omp parallel if (a) if (b) /* { dg-error "too many .if. clauses without modifier" } */
|
|
|
9 ;
|
|
|
10 #pragma omp parallel if (a) if (parallel: b) /* { dg-error "if any .if. clause has modifier, then all .if. clauses have to use modifier" } */
|
|
|
11 ;
|
|
|
12 #pragma omp parallel if (parallel: a) if (b) /* { dg-error "if any .if. clause has modifier, then all .if. clauses have to use modifier" } */
|
|
|
13 ;
|
|
|
14 #pragma omp parallel if (parallel:a) if (parallel:a) /* { dg-error "too many .if. clauses with .parallel. modifier" } */
|
|
|
15 ;
|
|
|
16 #pragma omp parallel if (task:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .task." } */ \
|
|
|
17 if (taskloop: b) /* { dg-error "expected .parallel. .if. clause modifier rather than .taskloop." } */
|
|
|
18 ;
|
|
|
19 #pragma omp parallel if (target update:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .target update." } */
|
|
|
20 ;
|
|
145
|
21 #pragma omp parallel if (cancel:a) /* { dg-error "expected .parallel. .if. clause modifier rather than .cancel." } */
|
|
|
22 ;
|
|
111
|
23 #pragma omp parallel for simd if (target update: a) /* { dg-error "expected .parallel. .if. clause modifier rather than .target update." } */
|
|
|
24 for (i = 0; i < 16; i++)
|
|
|
25 ;
|
|
|
26 #pragma omp task if (task)
|
|
|
27 ;
|
|
|
28 #pragma omp task if (task: task)
|
|
|
29 ;
|
|
|
30 #pragma omp task if (parallel: a) /* { dg-error "expected .task. .if. clause modifier rather than .parallel." } */
|
|
|
31 ;
|
|
145
|
32 #pragma omp simd if (cancel: a) /* { dg-error "expected .simd. .if. clause modifier rather than .cancel." } */
|
|
|
33 for (i = 0; i < 16; i++)
|
|
|
34 ;
|
|
111
|
35 #pragma omp taskloop if (task : a) /* { dg-error "expected .taskloop. .if. clause modifier rather than .task." } */
|
|
|
36 for (i = 0; i < 16; i++)
|
|
|
37 ;
|
|
|
38 #pragma omp target if (taskloop: a) /* { dg-error "expected .target. .if. clause modifier rather than .taskloop." } */
|
|
|
39 ;
|
|
145
|
40 #pragma omp target teams distribute parallel for simd if (target exit data : a) /* { dg-error "expected .target. .if. clause modifier" } */
|
|
111
|
41 for (i = 0; i < 16; i++)
|
|
|
42 ;
|
|
|
43 #pragma omp target data if (target: a) map (p[0:2]) /* { dg-error "expected .target data. .if. clause modifier rather than .target." } */
|
|
|
44 ;
|
|
|
45 #pragma omp target enter data if (target data: a) map (to: p[0:2]) /* { dg-error "expected .target enter data. .if. clause modifier rather than .target data." } */
|
|
|
46 #pragma omp target exit data if (target enter data: a) map (from: p[0:2]) /* { dg-error "expected .target exit data. .if. clause modifier rather than .target enter data." } */
|
|
|
47 #pragma omp target update if (target exit data:a) to (q[0:3]) /* { dg-error "expected .target update. .if. clause modifier rather than .target exit data." } */
|
|
145
|
48 #pragma omp for
|
|
|
49 for (i = 0; i < 16; i++)
|
|
|
50 {
|
|
|
51 #pragma omp cancel for if (target exit data:a) /* { dg-error "expected .cancel. .if. clause modifier" } */
|
|
|
52 }
|
|
111
|
53 }
|
