373 lines · cpp
1// RUN: %clang_cc1 -verify -fopenmp %s -Wno-openmp-mapping -Wuninitialized2 3// RUN: %clang_cc1 -verify -fopenmp-simd %s -Wno-openmp-mapping -Wuninitialized4 5extern int omp_default_mem_alloc;6void foo() {7}8 9bool foobool(int argc) {10 return argc;11}12 13void xxx(int argc) {14 int fp; // expected-note {{initialize the variable 'fp' to silence this warning}}15#pragma omp distribute parallel for simd firstprivate(fp) // expected-warning {{variable 'fp' is uninitialized when used here}}16 for (int i = 0; i < 10; ++i)17 ;18}19 20struct S1; // expected-note 2 {{declared here}} expected-note 3 {{forward declaration of 'S1'}}21extern S1 a;22class S2 {23 mutable int a;24 25public:26 S2() : a(0) {}27 S2(const S2 &s2) : a(s2.a) {}28 static float S2s;29 static const float S2sc;30};31const float S2::S2sc = 0;32const S2 b;33const S2 ba[5];34class S3 {35 int a;36 S3 &operator=(const S3 &s3);37 38public:39 S3() : a(0) {}40 S3(const S3 &s3) : a(s3.a) {}41};42const S3 c;43const S3 ca[5];44extern const int f;45class S4 {46 int a;47 S4();48 S4(const S4 &s4); // expected-note 2 {{implicitly declared private here}}49 50public:51 S4(int v) : a(v) {}52};53class S5 {54 int a;55 S5(const S5 &s5) : a(s5.a) {} // expected-note 2 {{implicitly declared private here}}56 57public:58 S5() : a(0) {}59 S5(int v) : a(v) {}60};61class S6 {62 int a;63 S6() : a(0) {} // expected-note {{implicitly declared private here}}64 65public:66 S6(const S6 &s6) : a(s6.a) {}67 S6(int v) : a(v) {}68};69 70S3 h;71#pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}72 73template <class I, class C>74int foomain(int argc, char **argv) {75 I e(4);76 C g(5);77 int i, z;78 int &j = i;79#pragma omp target80#pragma omp teams81#pragma omp distribute parallel for simd firstprivate // expected-error {{expected '(' after 'firstprivate'}}82 for (int k = 0; k < argc; ++k)83 ++k;84#pragma omp target85#pragma omp teams86#pragma omp distribute parallel for simd firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}87 for (int k = 0; k < argc; ++k)88 ++k;89#pragma omp target90#pragma omp teams91#pragma omp distribute parallel for simd firstprivate() // expected-error {{expected expression}}92 for (int k = 0; k < argc; ++k)93 ++k;94#pragma omp target95#pragma omp teams96#pragma omp distribute parallel for simd firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}97 for (int k = 0; k < argc; ++k)98 ++k;99#pragma omp target100#pragma omp teams101#pragma omp distribute parallel for simd firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}102 for (int k = 0; k < argc; ++k)103 ++k;104#pragma omp target105#pragma omp teams106#pragma omp distribute parallel for simd firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}107 for (int k = 0; k < argc; ++k)108 ++k;109#pragma omp target110#pragma omp teams111#pragma omp distribute parallel for simd firstprivate(argc, z)112 for (int k = 0; k < argc; ++k)113 ++k;114#pragma omp target115#pragma omp teams116#pragma omp distribute parallel for simd firstprivate(S1) // expected-error {{'S1' does not refer to a value}}117 for (int k = 0; k < argc; ++k)118 ++k;119#pragma omp target120#pragma omp teams121#pragma omp distribute parallel for simd firstprivate(a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}}122 for (int k = 0; k < argc; ++k)123 ++k;124#pragma omp target125#pragma omp teams126#pragma omp distribute parallel for simd firstprivate(argv[1]) // expected-error {{expected variable name}}127 for (int k = 0; k < argc; ++k)128 ++k;129#pragma omp target130#pragma omp teams131#pragma omp distribute parallel for simd firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}132 for (int k = 0; k < argc; ++k)133 ++k;134#pragma omp target135#pragma omp teams136#pragma omp distribute parallel for simd firstprivate(h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}137 for (int k = 0; k < argc; ++k)138 ++k;139#pragma omp parallel140 {141 int v = 0;142 int i;143#pragma omp target144#pragma omp teams145#pragma omp distribute parallel for simd firstprivate(i)146 for (int k = 0; k < argc; ++k) {147 i = k;148 v += i;149 }150 }151#pragma omp parallel shared(i)152#pragma omp parallel private(i)153#pragma omp target154#pragma omp teams155#pragma omp distribute parallel for simd firstprivate(j)156 for (int k = 0; k < argc; ++k)157 ++k;158#pragma omp target159#pragma omp teams160#pragma omp distribute parallel for simd firstprivate(i)161 for (int k = 0; k < argc; ++k)162 ++k;163// expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}164#pragma omp target165#pragma omp teams166#pragma omp distribute parallel for simd lastprivate(g) firstprivate(g)167 for (i = 0; i < argc; ++i)168 foo();169#pragma omp parallel private(i)170#pragma omp target171#pragma omp teams172#pragma omp distribute parallel for simd firstprivate(i) // expected-note 2 {{defined as firstprivate}}173 for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}174 foo();175#pragma omp parallel reduction(+ : i)176#pragma omp target177#pragma omp teams178#pragma omp distribute parallel for simd firstprivate(i) // expected-note 2 {{defined as firstprivate}}179 for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}180 foo();181 return 0;182}183 184namespace A {185double x;186#pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}187}188namespace B {189using A::x;190}191 192int main(int argc, char **argv) {193 const int d = 5;194 const int da[5] = {0};195 S4 e(4);196 S5 g(5);197 S3 m;198 S6 n(2);199 int i, z;200 int &j = i;201#pragma omp target202#pragma omp teams203#pragma omp distribute parallel for simd firstprivate // expected-error {{expected '(' after 'firstprivate'}}204 for (i = 0; i < argc; ++i)205 foo();206#pragma omp target207#pragma omp teams208#pragma omp distribute parallel for simd firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}209 for (i = 0; i < argc; ++i)210 foo();211#pragma omp target212#pragma omp teams213#pragma omp distribute parallel for simd firstprivate() // expected-error {{expected expression}}214 for (i = 0; i < argc; ++i)215 foo();216#pragma omp target217#pragma omp teams218#pragma omp distribute parallel for simd firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}219 for (i = 0; i < argc; ++i)220 foo();221#pragma omp target222#pragma omp teams223#pragma omp distribute parallel for simd firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}224 for (i = 0; i < argc; ++i)225 foo();226#pragma omp target227#pragma omp teams228#pragma omp distribute parallel for simd firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}229 for (i = 0; i < argc; ++i)230 foo();231#pragma omp target232#pragma omp teams233#pragma omp distribute parallel for simd 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 '('}}234 for (i = 0; i < argc; ++i)235 foo();236#pragma omp target237#pragma omp teams238#pragma omp distribute parallel for simd firstprivate(S1) // expected-error {{'S1' does not refer to a value}}239 for (i = 0; i < argc; ++i)240 foo();241#pragma omp target242#pragma omp teams243#pragma omp distribute parallel for simd 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}}244 for (i = 0; i < argc; ++i)245 foo();246#pragma omp target247#pragma omp teams248#pragma omp distribute parallel for simd firstprivate(argv[1]) // expected-error {{expected variable name}}249 for (i = 0; i < argc; ++i)250 foo();251#pragma omp target252#pragma omp teams253#pragma omp distribute parallel for simd firstprivate(2 * 2) // expected-error {{expected variable name}}254 for (i = 0; i < argc; ++i)255 foo();256#pragma omp target257#pragma omp teams258#pragma omp distribute parallel for simd firstprivate(ba, z) // OK259 for (i = 0; i < argc; ++i)260 foo();261#pragma omp target262#pragma omp teams263#pragma omp distribute parallel for simd firstprivate(ca) // OK264 for (i = 0; i < argc; ++i)265 foo();266#pragma omp target267#pragma omp teams268#pragma omp distribute parallel for simd firstprivate(da) // OK269 for (i = 0; i < argc; ++i)270 foo();271 int xa;272#pragma omp target273#pragma omp teams274#pragma omp distribute parallel for simd firstprivate(xa) // OK275 for (i = 0; i < argc; ++i)276 foo();277#pragma omp target278#pragma omp teams279#pragma omp distribute parallel for simd firstprivate(S2::S2s) // OK280 for (i = 0; i < argc; ++i)281 foo();282#pragma omp target283#pragma omp teams284#pragma omp distribute parallel for simd firstprivate(S2::S2sc) // OK285 for (i = 0; i < argc; ++i)286 foo();287#pragma omp target288#pragma omp teams289#pragma omp distribute parallel for simd safelen(5) // OK290 for (i = 0; i < argc; ++i)291 foo();292#pragma omp target293#pragma omp teams294#pragma omp distribute parallel for simd firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}295 for (i = 0; i < argc; ++i)296 foo();297#pragma omp target298#pragma omp teams299#pragma omp distribute parallel for simd firstprivate(m) // OK300 for (i = 0; i < argc; ++i)301 foo();302#pragma omp target303#pragma omp teams304#pragma omp distribute parallel for simd firstprivate(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be firstprivate}}305 for (i = 0; i < argc; ++i)306 foo();307#pragma omp target308#pragma omp teams309#pragma omp distribute parallel for simd private(xa), firstprivate(xa) // expected-error {{private variable cannot be firstprivate}} expected-note {{defined as private}}310 for (i = 0; i < argc; ++i)311 foo();312#pragma omp target313#pragma omp teams314#pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}315 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}316 foo();317#pragma omp parallel shared(xa)318#pragma omp target319#pragma omp teams320#pragma omp distribute parallel for simd firstprivate(xa) // OK: may be firstprivate321 for (i = 0; i < argc; ++i)322 foo();323#pragma omp target324#pragma omp teams325#pragma omp distribute parallel for simd firstprivate(j)326 for (i = 0; i < argc; ++i)327 foo();328// expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}329#pragma omp target330#pragma omp teams331#pragma omp distribute parallel for simd lastprivate(g) firstprivate(g)332 for (i = 0; i < argc; ++i)333 foo();334// expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}335#pragma omp target336#pragma omp teams337#pragma omp distribute parallel for simd lastprivate(n) firstprivate(n) // expected-error {{calling a private constructor of class 'S6'}}338 for (i = 0; i < argc; ++i)339 foo();340#pragma omp parallel341 {342 int v = 0;343 int i;344#pragma omp target345#pragma omp teams346#pragma omp distribute parallel for simd firstprivate(i)347 for (int k = 0; k < argc; ++k) {348 i = k;349 v += i;350 }351 }352#pragma omp parallel private(i)353#pragma omp target354#pragma omp teams355#pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}356 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}357 foo();358#pragma omp parallel reduction(+ : i)359#pragma omp target360#pragma omp teams361#pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}362 for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}363 foo();364 static int si;365#pragma omp target366#pragma omp teams367#pragma omp distribute parallel for simd firstprivate(si) // OK368 for (i = 0; i < argc; ++i)369 si = i + 1;370 371 return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<S4, S5>' requested here}}372}373