]>
Commit | Line | Data |
---|---|---|
40b9af02 | 1 | /* { dg-do compile } */ |
54bac0ce | 2 | /* { dg-options "-fopenmp -std=c23" } */ |
40b9af02 JJ |
3 | |
4 | #pragma omp begin assumes absent (target) | |
5 | #pragma omp begin assumes absent (target) | |
6 | [[omp::directive (begin assumes absent (target))]]; | |
7 | int a; | |
8 | [[omp::directive (end assumes)]]; | |
9 | #pragma omp end assumes | |
10 | #pragma omp end assumes | |
11 | [[omp::directive (begin assumes absent (target))]]; | |
12 | int b; | |
13 | #pragma omp end assumes /* { dg-error "'begin assumes' in attribute syntax terminated with 'end assumes' in pragma syntax" } */ | |
14 | #pragma omp begin assumes absent (target) | |
15 | int c; | |
16 | [[omp::directive (end assumes)]];/* { dg-error "'begin assumes' in pragma syntax terminated with 'end assumes' in attribute syntax" } */ | |
17 | #pragma omp begin assumes absent (target) | |
18 | [[omp::directive (begin assumes absent (target))]]; | |
19 | int d; | |
20 | #pragma omp end assumes /* { dg-error "'begin assumes' in attribute syntax terminated with 'end assumes' in pragma syntax" } */ | |
21 | #pragma omp begin assumes absent (target) | |
22 | int e; | |
23 | [[omp::directive (end assumes)]];/* { dg-error "'begin assumes' in pragma syntax terminated with 'end assumes' in attribute syntax" } */ | |
24 | #pragma omp end assumes | |
25 | [[omp::directive (begin assumes absent (target))]]; | |
26 | [[omp::directive (begin assumes absent (target))]]; | |
27 | int f; | |
28 | #pragma omp end assumes /* { dg-error "'begin assumes' in attribute syntax terminated with 'end assumes' in pragma syntax" } */ | |
29 | #pragma omp begin assumes absent (target) | |
30 | int g; | |
31 | [[omp::directive (end assumes)]];/* { dg-error "'begin assumes' in pragma syntax terminated with 'end assumes' in attribute syntax" } */ | |
32 | [[omp::directive (end assumes)]]; | |
33 | [[omp::directive (begin assumes absent (target))]]; | |
34 | #pragma omp begin assumes absent (target) | |
35 | int h; | |
36 | #pragma omp end assumes | |
37 | #pragma omp end assumes /* { dg-error "'begin assumes' in attribute syntax terminated with 'end assumes' in pragma syntax" } */ | |
38 | #pragma omp begin assumes absent (target) | |
39 | [[omp::directive (begin assumes absent (target))]]; | |
40 | int i; | |
41 | [[omp::directive (end assumes)]]; | |
42 | [[omp::directive (end assumes)]];/* { dg-error "'begin assumes' in pragma syntax terminated with 'end assumes' in attribute syntax" } */ |