]>
Commit | Line | Data |
---|---|---|
03be3cfe MV |
1 | /* { dg-do compile } */ |
2 | ||
d0e4bdcd | 3 | #pragma omp requires reverse_offload |
03be3cfe MV |
4 | |
5 | void | |
6 | foo (int n) | |
7 | { | |
d0e4bdcd | 8 | #pragma omp target device (ancestor: 1) |
03be3cfe MV |
9 | ; |
10 | ||
11 | ||
12 | /* Ensure that the integer expression in the 'device' clause for | |
13 | device-modifier 'ancestor' evaluates to '1' in case of a constant. */ | |
14 | ||
15 | #pragma omp target device (ancestor : 1) | |
16 | ; | |
17 | #pragma omp target device (ancestor : 42) /* { dg-error "the 'device' clause expression must evaluate to '1'" } */ | |
18 | ; | |
19 | ||
d0e4bdcd | 20 | #pragma omp target device (ancestor : n) |
03be3cfe | 21 | ; |
d0e4bdcd | 22 | #pragma omp target device (ancestor : n + 1) |
03be3cfe MV |
23 | ; |
24 | ||
25 | ||
26 | /* Ensure that only one 'device' clause appears on the construct. */ | |
27 | ||
28 | #pragma omp target device (17) device (42) /* { dg-error "too many 'device' clauses" } */ | |
29 | ; | |
30 | ||
31 | ||
32 | /* Ensure that with 'ancestor' only the 'device', 'firstprivate', 'private', | |
33 | 'defaultmap', and 'map' clauses appear on the construct. */ | |
34 | ||
35 | #pragma omp target nowait device (ancestor: 1) /* { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" } */ | |
36 | ; | |
37 | #pragma omp target device (ancestor: 1) nowait /* { dg-error "with 'ancestor', only the 'device', 'firstprivate', 'private', 'defaultmap', and 'map' clauses may appear on the construct" } */ | |
38 | ; | |
39 | #pragma omp target nowait device (42) | |
40 | ; | |
41 | #pragma omp target nowait device (device_num: 42) | |
42 | ; | |
43 | ||
44 | int a = 0, b = 0, c = 0; | |
45 | #pragma omp target device (ancestor: 1) firstprivate (a) private (b) defaultmap (none) map (c) | |
46 | ; | |
47 | ||
48 | ||
49 | /* Ensure that 'ancestor' is only used with 'target' constructs (not with | |
50 | 'target data', 'target update' etc.). */ | |
51 | ||
52 | #pragma omp target data map (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */ | |
53 | ; | |
54 | #pragma omp target enter data map (to: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */ | |
55 | #pragma omp target exit data map (from: a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" } */ | |
56 | #pragma omp target update to (a) device (ancestor: 1) /* { dg-error "'device' clause with 'ancestor' is only allowed on 'target' construct" "" { target *-*-* } } */ | |
57 | ||
58 | ||
59 | /* Ensure that no OpenMP constructs appear inside target regions with | |
60 | 'ancestor'. */ | |
61 | ||
62 | #pragma omp target device (ancestor: 1) | |
63 | { | |
64 | #pragma omp teams /* { dg-error "OpenMP constructs are not allowed in target region with 'ancestor'" } */ | |
65 | ; | |
66 | } | |
67 | ||
68 | #pragma omp target device (device_num: 1) | |
69 | { | |
70 | #pragma omp teams | |
71 | ; | |
72 | } | |
73 | ||
74 | #pragma omp target device (1) | |
75 | { | |
76 | #pragma omp teams | |
77 | ; | |
78 | } | |
79 | ||
80 | } |