21 #pragma omp declare target to (bar, baz, v)
23 __attribute__((noinline
, noclone
)) void
24 foo (int a
, int b
, long c
, long d
)
27 if (omp_get_num_teams () != 1)
29 /* The OpenMP 4.5 spec says that these expressions are evaluated before
30 target region on combined target teams, so those cases are always
32 #pragma omp target map(from: err)
33 err
= omp_get_num_teams () != 1;
36 #pragma omp target map(from: err)
38 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1;
41 #pragma omp target teams map(from: err)
42 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1;
45 #pragma omp target map(from: err)
46 #pragma omp teams num_teams (4)
47 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
48 || omp_get_num_teams () > 4;
51 #pragma omp target teams num_teams (4) map(from: err)
52 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
53 || omp_get_num_teams () > 4;
56 #pragma omp target map(from: err)
57 #pragma omp teams thread_limit (7)
58 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
59 || omp_get_thread_limit () > 7;
62 #pragma omp target teams thread_limit (7) map(from: err)
63 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
64 || omp_get_thread_limit () > 7;
67 #pragma omp target map(from: err)
68 #pragma omp teams num_teams (4) thread_limit (8)
71 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
72 || omp_get_num_teams () > 4 || omp_get_thread_limit () > 8;
77 #pragma omp target teams num_teams (4) thread_limit (8) map(from: err)
78 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
79 || omp_get_num_teams () > 4 || omp_get_thread_limit () > 8;
82 #pragma omp target map(from: err)
83 #pragma omp teams num_teams (a) thread_limit (b)
84 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
85 || omp_get_num_teams () > a
|| omp_get_thread_limit () > b
;
88 #pragma omp target teams num_teams (a) thread_limit (b) map(from: err)
89 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
90 || omp_get_num_teams () > a
|| omp_get_thread_limit () > b
;
93 #pragma omp target map(from: err)
94 #pragma omp teams num_teams (c + 1) thread_limit (d - 1)
95 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
96 || omp_get_num_teams () > c
+ 1 || omp_get_thread_limit () > d
- 1;
99 #pragma omp target teams num_teams (c + 1) thread_limit (d - 1) map(from: err)
100 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
101 || omp_get_num_teams () > c
+ 1 || omp_get_thread_limit () > d
- 1;
104 #pragma omp target map (always, to: c, d) map(from: err)
105 #pragma omp teams num_teams (c + 1) thread_limit (d - 1)
106 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
107 || omp_get_num_teams () > c
+ 1 || omp_get_thread_limit () > d
- 1;
110 #pragma omp target data map (to: c, d)
112 #pragma omp target defaultmap (tofrom: scalar)
114 /* This is one of the cases which can't be generally optimized,
115 the c and d are (or could be) already mapped and whether
116 their device and original values match is unclear. */
117 #pragma omp target map (to: c, d) map(from: err)
118 #pragma omp teams num_teams (c + 1) thread_limit (d - 1)
119 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
120 || omp_get_num_teams () > c
+ 1 || omp_get_thread_limit () > d
- 1;
124 /* This can't be optimized, there are function calls inside of
126 #pragma omp target map(from: err)
127 #pragma omp teams num_teams (baz () + 1) thread_limit (baz () - 1)
128 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
129 || omp_get_num_teams () > baz () + 1 || omp_get_thread_limit () > baz () - 1;
132 #pragma omp target teams num_teams (baz () + 1) thread_limit (baz () - 1) map(from: err)
133 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
134 || omp_get_num_teams () > baz () + 1 || omp_get_thread_limit () > baz () - 1;
137 /* This one can't be optimized, as v might have different value between
139 #pragma omp target map(from: err)
140 #pragma omp teams num_teams (v + 1) thread_limit (v - 1)
141 err
= omp_get_num_teams () < 1 || omp_get_thread_limit () < 1
142 || omp_get_num_teams () > v
+ 1 || omp_get_thread_limit () > v
- 1;