1 // RUN: %clang_cc1 -verify=expected,lt50,lt51 -fopenmp -fopenmp-version=45 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 2 // RUN: %clang_cc1 -verify=expected,ge50,lt51 -fopenmp -fopenmp-version=50 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 3 // RUN: %clang_cc1 -verify=expected,ge50,ge51 -fopenmp -fopenmp-version=51 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 4 5 // RUN: %clang_cc1 -verify=expected,lt50,lt51 -fopenmp-simd -fopenmp-version=45 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 6 // RUN: %clang_cc1 -verify=expected,ge50,lt51 -fopenmp-simd -fopenmp-version=50 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 7 // RUN: %clang_cc1 -verify=expected,ge50,ge51 -fopenmp-simd -fopenmp-version=51 -ferror-limit 100 %s -Wno-openmp-mapping -Wuninitialized 8 9 void foo() { 10 } 11 12 bool foobool(int argc) { 13 return argc; 14 } 15 16 void xxx(int argc) { 17 int map; // expected-note {{initialize the variable 'map' to silence this warning}} 18 #pragma omp target parallel map(tofrom: map) // expected-warning {{variable 'map' is uninitialized when used here}} 19 for (int i = 0; i < 10; ++i) 20 ; 21 } 22 23 struct S1; // expected-note 2 {{declared here}} 24 extern S1 a; 25 class S2 { 26 mutable int a; 27 public: 28 S2():a(0) { } 29 S2(S2 &s2):a(s2.a) { } 30 static float S2s; 31 static const float S2sc; 32 }; 33 const float S2::S2sc = 0; 34 const S2 b; 35 const S2 ba[5]; 36 class S3 { 37 int a; 38 public: 39 S3():a(0) { } 40 S3(S3 &s3):a(s3.a) { } 41 }; 42 const S3 c; 43 const S3 ca[5]; 44 extern const int f; 45 class S4 { 46 int a; 47 S4(); 48 S4(const S4 &s4); 49 public: 50 S4(int v):a(v) { } 51 }; 52 class S5 { 53 int a; 54 S5():a(0) {} 55 S5(const S5 &s5):a(s5.a) { } 56 public: 57 S5(int v):a(v) { } 58 }; 59 60 S3 h; 61 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}} 62 63 typedef int from; 64 65 template <typename T, int I> // expected-note {{declared here}} 66 T tmain(T argc) { 67 const T d = 5; 68 const T da[5] = { 0 }; 69 S4 e(4); 70 S5 g(5); 71 T i, t[20]; 72 T &j = i; 73 T *k = &j; 74 T x; 75 T y, z; 76 T to, tofrom, always; 77 const T (&l)[5] = da; 78 79 80 #pragma omp target parallel map // expected-error {{expected '(' after 'map'}} 81 foo(); 82 #pragma omp target parallel map( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}} 83 foo(); 84 #pragma omp target parallel map() // expected-error {{expected expression}} 85 foo(); 86 #pragma omp target parallel map(alloc) // expected-error {{use of undeclared identifier 'alloc'}} 87 foo(); 88 #pragma omp target parallel map(to argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected ',' or ')' in 'map' clause}} 89 foo(); 90 #pragma omp target parallel map(to:) // expected-error {{expected expression}} 91 foo(); 92 #pragma omp target parallel map(from: argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 93 foo(); 94 #pragma omp target parallel map(x: y) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}} 95 foo(); 96 #pragma omp target parallel map(l[-1:]) // expected-error 2 {{array section must be a subset of the original array}} 97 foo(); 98 #pragma omp target parallel map(l[:-1]) // expected-error 2 {{section length is evaluated to a negative value -1}} 99 foo(); 100 #pragma omp target parallel map(l[true:true]) 101 foo(); 102 #pragma omp target parallel map(x, z) 103 foo(); 104 #pragma omp target parallel map(tofrom: t[:I]) 105 foo(); 106 #pragma omp target parallel map(T: a) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}} expected-error {{incomplete type 'S1' where a complete type is required}} 107 foo(); 108 #pragma omp target parallel map(T) // expected-error {{'T' does not refer to a value}} 109 foo(); 110 // ge50-error@+2 2 {{expected addressable lvalue in 'map' clause}} 111 // lt50-error@+1 2 {{expected expression containing only member accesses and/or array sections based on named variables}} 112 #pragma omp target parallel map(I) 113 foo(); 114 #pragma omp target parallel map(S2::S2s) 115 foo(); 116 #pragma omp target parallel map(S2::S2sc) 117 foo(); 118 #pragma omp target parallel map(x) 119 foo(); 120 #pragma omp target parallel map(to: x) 121 foo(); 122 #pragma omp target parallel map(to: to) 123 foo(); 124 #pragma omp target parallel map(to) 125 foo(); 126 #pragma omp target parallel map(to, x) 127 foo(); 128 #pragma omp target parallel map(to x) // expected-error {{expected ',' or ')' in 'map' clause}} 129 foo(); 130 // ge50-error@+3 2 {{expected addressable lvalue in 'map' clause}} 131 // lt50-error@+2 2 {{expected expression containing only member accesses and/or array sections based on named variables}} 132 #pragma omp target parallel map(tofrom \ 133 : argc > 0 ? x : y) 134 foo(); 135 #pragma omp target parallel map(argc) 136 foo(); 137 #pragma omp target parallel map(S1) // expected-error {{'S1' does not refer to a value}} 138 foo(); 139 #pragma omp target parallel map(a, b, c, d, f) // expected-error {{incomplete type 'S1' where a complete type is required}} 140 foo(); 141 #pragma omp target parallel map(ba) 142 foo(); 143 #pragma omp target parallel map(ca) 144 foo(); 145 #pragma omp target parallel map(da) 146 foo(); 147 #pragma omp target parallel map(S2::S2s) 148 foo(); 149 #pragma omp target parallel map(S2::S2sc) 150 foo(); 151 #pragma omp target parallel map(e, g) 152 foo(); 153 #pragma omp target parallel map(h) // expected-error {{threadprivate variables are not allowed in 'map' clause}} 154 foo(); 155 #pragma omp target parallel map(k), map(k) // lt50-error 2 {{variable already marked as mapped in current construct}} lt50-note 2 {{used here}} 156 foo(); 157 #pragma omp target parallel map(k), map(k[:5]) // lt50-error 2 {{pointer cannot be mapped along with a section derived from itself}} lt50-note 2 {{used here}} 158 foo(); 159 #pragma omp target parallel map(da) 160 foo(); 161 #pragma omp target parallel map(da[:4]) 162 foo(); 163 #pragma omp target data map(k, j, l) // lt50-note 2 {{used here}} 164 #pragma omp target parallel map(k[:4]) // lt50-error 2 {{pointer cannot be mapped along with a section derived from itself}} 165 foo(); 166 #pragma omp target parallel map(j) 167 foo(); 168 #pragma omp target parallel map(l) map(l[:5]) // lt50-error 2 {{variable already marked as mapped in current construct}} lt50-note 2 {{used here}} 169 foo(); 170 #pragma omp target data map(k[:4], j, l[:5]) // lt50-note 2 {{used here}} 171 { 172 #pragma omp target parallel map(k) // lt50-error 2 {{pointer cannot be mapped along with a section derived from itself}} 173 foo(); 174 #pragma omp target parallel map(j) 175 foo(); 176 #pragma omp target parallel map(l) 177 foo(); 178 } 179 180 #pragma omp target parallel map(always, tofrom: x) 181 foo(); 182 #pragma omp target parallel map(always: x) // expected-error {{missing map type}} 183 foo(); 184 // ge51-error@+3 {{incorrect map type modifier, expected 'always', 'close', 'mapper', or 'present'}} 185 // lt51-error@+2 {{incorrect map type modifier, expected 'always', 'close', or 'mapper'}} 186 // expected-error@+1 {{missing map type}} 187 #pragma omp target parallel map(tofrom, always: x) 188 foo(); 189 #pragma omp target parallel map(always, tofrom: always, tofrom, x) 190 foo(); 191 #pragma omp target parallel map(tofrom j) // expected-error {{expected ',' or ')' in 'map' clause}} 192 foo(); 193 194 return 0; 195 } 196 197 int main(int argc, char **argv) { 198 const int d = 5; 199 const int da[5] = { 0 }; 200 S4 e(4); 201 S5 g(5); 202 int i; 203 int &j = i; 204 int *k = &j; 205 int x; 206 int y; 207 int to, tofrom, always; 208 const int (&l)[5] = da; 209 #pragma omp target parallel map // expected-error {{expected '(' after 'map'}} 210 foo(); 211 #pragma omp target parallel map( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}} 212 foo(); 213 #pragma omp target parallel map() // expected-error {{expected expression}} 214 foo(); 215 #pragma omp target parallel map(alloc) // expected-error {{use of undeclared identifier 'alloc'}} 216 foo(); 217 #pragma omp target parallel map(to argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected ',' or ')' in 'map' clause}} 218 foo(); 219 #pragma omp target parallel map(to:) // expected-error {{expected expression}} 220 foo(); 221 #pragma omp target parallel map(from: argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 222 foo(); 223 #pragma omp target parallel map(x: y) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}} 224 foo(); 225 #pragma omp target parallel map(l[-1:]) // expected-error {{array section must be a subset of the original array}} 226 foo(); 227 #pragma omp target parallel map(l[:-1]) // expected-error {{section length is evaluated to a negative value -1}} 228 foo(); 229 #pragma omp target parallel map(l[true:true]) 230 foo(); 231 #pragma omp target parallel map(x) 232 foo(); 233 #pragma omp target parallel map(to: x) 234 foo(); 235 #pragma omp target parallel map(to: to) 236 foo(); 237 #pragma omp target parallel map(to) 238 foo(); 239 #pragma omp target parallel map(to, x) 240 foo(); 241 #pragma omp target parallel map(to x) // expected-error {{expected ',' or ')' in 'map' clause}} 242 foo(); 243 // ge50-error@+3 {{expected addressable lvalue in 'map' clause}} 244 // lt50-error@+2 {{expected expression containing only member accesses and/or array sections based on named variables}} 245 #pragma omp target parallel map(tofrom \ 246 : argc > 0 ? argv[1] : argv[2]) 247 foo(); 248 #pragma omp target parallel map(argc) 249 foo(); 250 #pragma omp target parallel map(S1) // expected-error {{'S1' does not refer to a value}} 251 foo(); 252 #pragma omp target parallel map(a, b, c, d, f) // expected-error {{incomplete type 'S1' where a complete type is required}} 253 foo(); 254 #pragma omp target parallel map(argv[1]) 255 foo(); 256 #pragma omp target parallel map(ba) 257 foo(); 258 #pragma omp target parallel map(ca) 259 foo(); 260 #pragma omp target parallel map(da) 261 foo(); 262 #pragma omp target parallel map(S2::S2s) 263 foo(); 264 #pragma omp target parallel map(S2::S2sc) 265 foo(); 266 #pragma omp target parallel map(e, g) 267 foo(); 268 #pragma omp target parallel map(h) // expected-error {{threadprivate variables are not allowed in 'map' clause}} 269 foo(); 270 #pragma omp target parallel map(k), map(k) // lt50-error {{variable already marked as mapped in current construct}} lt50-note {{used here}} 271 foo(); 272 #pragma omp target parallel map(k), map(k[:5]) // lt50-error {{pointer cannot be mapped along with a section derived from itself}} lt50-note {{used here}} 273 foo(); 274 #pragma omp target parallel map(da) 275 foo(); 276 #pragma omp target parallel map(da[:4]) 277 foo(); 278 #pragma omp target data map(k, j, l) // lt50-note {{used here}} 279 #pragma omp target parallel map(k[:4]) // lt50-error {{pointer cannot be mapped along with a section derived from itself}} 280 foo(); 281 #pragma omp target parallel map(j) 282 foo(); 283 #pragma omp target parallel map(l) map(l[:5]) // lt50-error {{variable already marked as mapped in current construct}} lt50-note {{used here}} 284 foo(); 285 #pragma omp target data map(k[:4], j, l[:5]) // lt50-note {{used here}} 286 { 287 #pragma omp target parallel map(k) // lt50-error {{pointer cannot be mapped along with a section derived from itself}} 288 foo(); 289 #pragma omp target parallel map(j) 290 foo(); 291 #pragma omp target parallel map(l) 292 foo(); 293 } 294 295 #pragma omp target parallel map(always, tofrom: x) 296 foo(); 297 #pragma omp target parallel map(always: x) // expected-error {{missing map type}} 298 foo(); 299 // ge51-error@+3 {{incorrect map type modifier, expected 'always', 'close', 'mapper', or 'present'}} 300 // lt51-error@+2 {{incorrect map type modifier, expected 'always', 'close', or 'mapper'}} 301 // expected-error@+1 {{missing map type}} 302 #pragma omp target parallel map(tofrom, always: x) 303 foo(); 304 #pragma omp target parallel map(always, tofrom: always, tofrom, x) 305 foo(); 306 #pragma omp target parallel map(tofrom j) // expected-error {{expected ',' or ')' in 'map' clause}} 307 foo(); 308 #pragma omp target parallel map(delete: j) // expected-error {{map type 'delete' is not allowed for '#pragma omp target parallel'}} 309 foo(); 310 #pragma omp target parallel map(release: j) // expected-error {{map type 'release' is not allowed for '#pragma omp target parallel'}} 311 foo(); 312 313 return tmain<int, 3>(argc)+tmain<from, 4>(argc); // expected-note {{in instantiation of function template specialization 'tmain<int, 3>' requested here}} expected-note {{in instantiation of function template specialization 'tmain<int, 4>' requested here}} 314 } 315 316