| /* { dg-do compile } */ |
| /* { dg-options "-fopenmp" } */ |
| |
| extern int a; |
| #pragma omp begin declare target |
| #pragma omp declare target to (a) |
| #pragma omp end declare target |
| int b; |
| #pragma omp begin declare target to (b) /* { dg-error "'to' is not valid for '#pragma omp begin declare target'" } */ |
| #pragma omp end declare target |
| int c; |
| #pragma omp begin declare target link (c) /* { dg-error "'link' is not valid for '#pragma omp begin declare target'" } */ |
| #pragma omp end declare target |
| int m; |
| #pragma omp begin declare target device_type (host) device_type (any) /* { dg-error "too many 'device_type' clauses" } */ |
| #pragma omp end declare target |
| #pragma omp begin declare target |
| #pragma omp end declare target to (p) /* { dg-error "expected end of line before .to." } */ |