1 // RUN: %clang_cc1 -verify -fopenmp %s -Wuninitialized 2 3 // RUN: %clang_cc1 -verify -fopenmp-simd %s -Wuninitialized 4 5 void foo() { 6 } 7 8 bool foobool(int argc) { 9 return argc; 10 } 11 12 void xxx(int argc) { 13 int fp; // expected-note {{initialize the variable 'fp' to silence this warning}} 14 #pragma omp distribute parallel for firstprivate(fp) // expected-warning {{variable 'fp' is uninitialized when used here}} 15 for (int i = 0; i < 10; ++i) 16 ; 17 } 18 19 extern int omp_default_mem_alloc; 20 21 struct S1; // expected-note 2 {{declared here}} expected-note 3 {{forward declaration of 'S1'}} 22 extern S1 a; 23 class S2 { 24 mutable int a; 25 26 public: 27 S2() : a(0) {} 28 S2(const S2 &s2) : a(s2.a) {} 29 static float S2s; 30 static const float S2sc; 31 }; 32 const float S2::S2sc = 0; 33 const S2 b; 34 const S2 ba[5]; 35 class S3 { 36 int a; 37 S3 &operator=(const S3 &s3); 38 39 public: 40 S3() : a(0) {} 41 S3(const S3 &s3) : a(s3.a) {} 42 }; 43 const S3 c; 44 const S3 ca[5]; 45 extern const int f; 46 class S4 { 47 int a; 48 S4(); 49 S4(const S4 &s4); // expected-note 2 {{implicitly declared private here}} 50 51 public: 52 S4(int v) : a(v) {} 53 }; 54 class S5 { 55 int a; 56 S5(const S5 &s5) : a(s5.a) {} // expected-note 2 {{implicitly declared private here}} 57 58 public: 59 S5() : a(0) {} 60 S5(int v) : a(v) {} 61 }; 62 class S6 { 63 int a; 64 S6() : a(0) {} // expected-note {{implicitly declared private here}} 65 66 public: 67 S6(const S6 &s6) : a(s6.a) {} 68 S6(int v) : a(v) {} 69 }; 70 71 S3 h; 72 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}} 73 74 template <class I, class C> 75 int foomain(int argc, char **argv) { 76 I e(4); 77 C g(5); 78 int i, k; 79 int &j = i; 80 #pragma omp target 81 #pragma omp teams 82 #pragma omp distribute parallel for firstprivate // expected-error {{expected '(' after 'firstprivate'}} 83 for (int k = 0; k < argc; ++k) 84 ++k; 85 #pragma omp target 86 #pragma omp teams 87 #pragma omp distribute parallel for firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 88 for (int k = 0; k < argc; ++k) 89 ++k; 90 #pragma omp target 91 #pragma omp teams 92 #pragma omp distribute parallel for firstprivate() // expected-error {{expected expression}} 93 for (int k = 0; k < argc; ++k) 94 ++k; 95 #pragma omp target 96 #pragma omp teams 97 #pragma omp distribute parallel for firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}} 98 for (int k = 0; k < argc; ++k) 99 ++k; 100 #pragma omp target 101 #pragma omp teams 102 #pragma omp distribute parallel for firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 103 for (int k = 0; k < argc; ++k) 104 ++k; 105 #pragma omp target 106 #pragma omp teams 107 #pragma omp distribute parallel for firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}} 108 for (int k = 0; k < argc; ++k) 109 ++k; 110 #pragma omp target 111 #pragma omp teams 112 #pragma omp distribute parallel for firstprivate(argc) allocate , allocate(, allocate(omp_default , allocate(omp_default_mem_alloc, allocate(omp_default_mem_alloc:, allocate(omp_default_mem_alloc: argc, allocate(omp_default_mem_alloc: argv), allocate(argv) // expected-error {{expected '(' after 'allocate'}} expected-error 2 {{expected expression}} expected-error 2 {{expected ')'}} expected-error {{use of undeclared identifier 'omp_default'}} expected-note 2 {{to match this '('}} 113 for (int k = 0; k < argc; ++k) 114 ++k; 115 #pragma omp target 116 #pragma omp teams 117 #pragma omp distribute parallel for firstprivate(S1) // expected-error {{'S1' does not refer to a value}} 118 for (int k = 0; k < argc; ++k) 119 ++k; 120 #pragma omp target 121 #pragma omp teams 122 #pragma omp distribute parallel for firstprivate(a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}} expected-warning {{Type 'const S2' is not trivially copyable and not guaranteed to be mapped correctly}} 123 for (int k = 0; k < argc; ++k) 124 ++k; 125 #pragma omp target 126 #pragma omp teams 127 #pragma omp distribute parallel for firstprivate(argv[1]) // expected-error {{expected variable name}} 128 for (int k = 0; k < argc; ++k) 129 ++k; 130 #pragma omp target 131 #pragma omp teams 132 #pragma omp distribute parallel for firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}} expected-warning {{Type 'S4' is not trivially copyable and not guaranteed to be mapped correctly}} expected-warning {{Type 'S5' is not trivially copyable and not guaranteed to be mapped correctly}} 133 for (int k = 0; k < argc; ++k) 134 ++k; 135 #pragma omp target 136 #pragma omp teams 137 #pragma omp distribute parallel for firstprivate(k, h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}} 138 for (int k = 0; k < argc; ++k) 139 ++k; 140 #pragma omp parallel 141 { 142 int v = 0; 143 int i; 144 #pragma omp target 145 #pragma omp teams 146 #pragma omp distribute parallel for firstprivate(i) 147 for (int k = 0; k < argc; ++k) { 148 i = k; 149 v += i; 150 } 151 } 152 #pragma omp parallel shared(i) 153 #pragma omp parallel private(i) 154 #pragma omp target 155 #pragma omp teams 156 #pragma omp distribute parallel for firstprivate(j) 157 for (int k = 0; k < argc; ++k) 158 ++k; 159 #pragma omp target 160 #pragma omp teams 161 #pragma omp distribute parallel for firstprivate(i) 162 for (int k = 0; k < argc; ++k) 163 ++k; 164 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}} 165 #pragma omp target 166 #pragma omp teams 167 #pragma omp distribute parallel for lastprivate(g) firstprivate(g) 168 for (i = 0; i < argc; ++i) 169 foo(); 170 #pragma omp parallel private(i) 171 #pragma omp target 172 #pragma omp teams 173 #pragma omp distribute parallel for firstprivate(i) // expected-note 2 {{defined as firstprivate}} 174 for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for' directive may not be firstprivate, predetermined as private}} 175 foo(); 176 #pragma omp parallel reduction(+ : i) 177 #pragma omp target 178 #pragma omp teams 179 #pragma omp distribute parallel for firstprivate(i) // expected-note 2 {{defined as firstprivate}} 180 for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for' directive may not be firstprivate, predetermined as private}} 181 foo(); 182 return 0; 183 } 184 185 namespace A { 186 double x; 187 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}} 188 } 189 namespace B { 190 using A::x; 191 } 192 193 int main(int argc, char **argv) { 194 const int d = 5; 195 const int da[5] = {0}; 196 S4 e(4); 197 S5 g(5); 198 S3 m; 199 S6 n(2); 200 int i, k; 201 int &j = i; 202 #pragma omp target 203 #pragma omp teams 204 #pragma omp distribute parallel for firstprivate // expected-error {{expected '(' after 'firstprivate'}} 205 for (i = 0; i < argc; ++i) 206 foo(); 207 #pragma omp target 208 #pragma omp teams 209 #pragma omp distribute parallel for firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 210 for (i = 0; i < argc; ++i) 211 foo(); 212 #pragma omp target 213 #pragma omp teams 214 #pragma omp distribute parallel for firstprivate() // expected-error {{expected expression}} 215 for (i = 0; i < argc; ++i) 216 foo(); 217 #pragma omp target 218 #pragma omp teams 219 #pragma omp distribute parallel for firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}} 220 for (i = 0; i < argc; ++i) 221 foo(); 222 #pragma omp target 223 #pragma omp teams 224 #pragma omp distribute parallel for firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}} 225 for (i = 0; i < argc; ++i) 226 foo(); 227 #pragma omp target 228 #pragma omp teams 229 #pragma omp distribute parallel for firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}} 230 for (i = 0; i < argc; ++i) 231 foo(); 232 #pragma omp target 233 #pragma omp teams 234 #pragma omp distribute parallel for firstprivate(argc) 235 for (i = 0; i < argc; ++i) 236 foo(); 237 #pragma omp target 238 #pragma omp teams 239 #pragma omp distribute parallel for firstprivate(S1) // expected-error {{'S1' does not refer to a value}} 240 for (i = 0; i < argc; ++i) 241 foo(); 242 #pragma omp target 243 #pragma omp teams 244 #pragma omp distribute parallel for firstprivate(a, b, c, d, f) // expected-error {{firstprivate variable with incomplete type 'S1'}} expected-error {{incomplete type 'S1' where a complete type is required}} expected-warning {{Type 'const S2' is not trivially copyable and not guaranteed to be mapped correctly}} expected-warning {{Type 'const S3' is not trivially copyable and not guaranteed to be mapped correctly}} 245 for (i = 0; i < argc; ++i) 246 foo(); 247 #pragma omp target 248 #pragma omp teams 249 #pragma omp distribute parallel for firstprivate(argv[1]) // expected-error {{expected variable name}} 250 for (i = 0; i < argc; ++i) 251 foo(); 252 #pragma omp target 253 #pragma omp teams 254 #pragma omp distribute parallel for firstprivate(2 * 2) // expected-error {{expected variable name}} 255 for (i = 0; i < argc; ++i) 256 foo(); 257 #pragma omp target 258 #pragma omp teams 259 #pragma omp distribute parallel for firstprivate(ba) // expected-warning {{Type 'const S2[5]' is not trivially copyable and not guaranteed to be mapped correctly}} 260 for (i = 0; i < argc; ++i) 261 foo(); 262 #pragma omp target 263 #pragma omp teams 264 #pragma omp distribute parallel for firstprivate(ca) // expected-warning {{Type 'const S3[5]' is not trivially copyable and not guaranteed to be mapped correctly}} 265 for (i = 0; i < argc; ++i) 266 foo(); 267 #pragma omp target 268 #pragma omp teams 269 #pragma omp distribute parallel for firstprivate(da) // OK 270 for (i = 0; i < argc; ++i) 271 foo(); 272 int xa; 273 #pragma omp target 274 #pragma omp teams 275 #pragma omp distribute parallel for firstprivate(xa) // OK 276 for (i = 0; i < argc; ++i) 277 foo(); 278 #pragma omp target 279 #pragma omp teams 280 #pragma omp distribute parallel for firstprivate(S2::S2s) // OK 281 for (i = 0; i < argc; ++i) 282 foo(); 283 #pragma omp target 284 #pragma omp teams 285 #pragma omp distribute parallel for firstprivate(S2::S2sc) // OK 286 for (i = 0; i < argc; ++i) 287 foo(); 288 #pragma omp target 289 #pragma omp teams 290 #pragma omp distribute parallel for safelen(5) // expected-error {{unexpected OpenMP clause 'safelen' in directive '#pragma omp distribute parallel for'}} 291 for (i = 0; i < argc; ++i) 292 foo(); 293 #pragma omp target 294 #pragma omp teams 295 #pragma omp distribute parallel for firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}} expected-warning {{Type 'S4' is not trivially copyable and not guaranteed to be mapped correctly}} expected-warning {{Type 'S5' is not trivially copyable and not guaranteed to be mapped correctly}} 296 for (i = 0; i < argc; ++i) 297 foo(); 298 #pragma omp target 299 #pragma omp teams 300 #pragma omp distribute parallel for firstprivate(m) // expected-warning {{Type 'S3' is not trivially copyable and not guaranteed to be mapped correctly}} 301 for (i = 0; i < argc; ++i) 302 foo(); 303 #pragma omp target 304 #pragma omp teams 305 #pragma omp distribute parallel for firstprivate(k, h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be firstprivate}} 306 for (i = 0; i < argc; ++i) 307 foo(); 308 #pragma omp target 309 #pragma omp teams 310 #pragma omp distribute parallel for private(xa), firstprivate(xa) // expected-error {{private variable cannot be firstprivate}} expected-note {{defined as private}} 311 for (i = 0; i < argc; ++i) 312 foo(); 313 #pragma omp target 314 #pragma omp teams 315 #pragma omp distribute parallel for firstprivate(i) // expected-note {{defined as firstprivate}} 316 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for' directive may not be firstprivate, predetermined as private}} 317 foo(); 318 #pragma omp parallel shared(xa) 319 #pragma omp target 320 #pragma omp teams 321 #pragma omp distribute parallel for firstprivate(xa) // OK: may be firstprivate 322 for (i = 0; i < argc; ++i) 323 foo(); 324 #pragma omp target 325 #pragma omp teams 326 #pragma omp distribute parallel for firstprivate(j) 327 for (i = 0; i < argc; ++i) 328 foo(); 329 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}} 330 #pragma omp target 331 #pragma omp teams 332 #pragma omp distribute parallel for lastprivate(g) firstprivate(g) // expected-warning {{Type 'S5' is not trivially copyable and not guaranteed to be mapped correctly}} 333 for (i = 0; i < argc; ++i) 334 foo(); 335 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}} 336 #pragma omp target 337 #pragma omp teams 338 #pragma omp distribute parallel for lastprivate(n) firstprivate(n) // expected-error {{calling a private constructor of class 'S6'}} expected-warning {{Type 'S6' is not trivially copyable and not guaranteed to be mapped correctly}} 339 for (i = 0; i < argc; ++i) 340 foo(); 341 #pragma omp parallel 342 { 343 int v = 0; 344 int i; 345 #pragma omp target 346 #pragma omp teams 347 #pragma omp distribute parallel for firstprivate(i) 348 for (int k = 0; k < argc; ++k) { 349 i = k; 350 v += i; 351 } 352 } 353 #pragma omp parallel private(i) 354 #pragma omp target 355 #pragma omp teams 356 #pragma omp distribute parallel for firstprivate(i) // expected-note {{defined as firstprivate}} 357 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for' directive may not be firstprivate, predetermined as private}} 358 foo(); 359 #pragma omp parallel reduction(+ : i) 360 #pragma omp target 361 #pragma omp teams 362 #pragma omp distribute parallel for firstprivate(i) // expected-note {{defined as firstprivate}} 363 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for' directive may not be firstprivate, predetermined as private}} 364 foo(); 365 static int si; 366 #pragma omp target 367 #pragma omp teams 368 #pragma omp distribute parallel for firstprivate(si) // OK 369 for (i = 0; i < argc; ++i) 370 si = i + 1; 371 372 return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<S4, S5>' requested here}} 373 } 374