clang/test/OpenMP/single_firstprivate_messages.cpp

   1 // RUN: %clang_cc1 -verify -fopenmp %s -Wuninitialized
   2
   3 // RUN: %clang_cc1 -verify -fopenmp-simd %s -Wuninitialized
   4
   5 extern int omp_default_mem_alloc;
   6 void foo() {
   7 }
   8
   9 bool foobool(int argc) {
  10   return argc;
  11 }
  12
  13 struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
  14 extern S1 a;
  15 class S2 {
  16   mutable int a;
  17
  18 public:
  19   S2() : a(0) {}
  20   S2(const S2 &s2) : a(s2.a) {}
  21   static float S2s;
  22   static const float S2sc;
  23 };
  24 const float S2::S2sc = 0;
  25 const S2 b;
  26 const S2 ba[5];
  27 class S3 {
  28   int a;
  29   S3 &operator=(const S3 &s3);
  30
  31 public:
  32   S3() : a(0) {}
  33   S3(const S3 &s3) : a(s3.a) {}
  34 };
  35 const S3 c;
  36 const S3 ca[5];
  37 extern const int f;
  38 class S4 {
  39   int a;
  40   S4();
  41   S4(const S4 &s4); // expected-note 2 {{implicitly declared private here}}
  42
  43 public:
  44   S4(int v) : a(v) {}
  45 };
  46 class S5 {
  47   int a;
  48   S5(const S5 &s5) : a(s5.a) {} // expected-note 4 {{implicitly declared private here}}
  49
  50 public:
  51   S5() : a(0) {}
  52   S5(int v) : a(v) {}
  53 };
  54 class S6 {
  55   int a;
  56   S6() : a(0) {}
  57
  58 public:
  59   S6(const S6 &s6) : a(s6.a) {}
  60   S6(int v) : a(v) {}
  61 };
  62
  63 S3 h;
  64 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
  65
  66 template <class I, class C>
  67 int foomain(int argc, char **argv) {
  68   I e(4);
  69   C g(5);
  70   int i, z;
  71   int &j = i;
  72 #pragma omp parallel
  73 #pragma omp single firstprivate // expected-error {{expected '(' after 'firstprivate'}}
  74   foo();
  75 #pragma omp parallel
  76 #pragma omp single firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
  77   foo();
  78 #pragma omp parallel
  79 #pragma omp single firstprivate() // expected-error {{expected expression}}
  80   foo();
  81 #pragma omp parallel
  82 #pragma omp single firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
  83   foo();
  84 #pragma omp parallel
  85 #pragma omp single firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
  86   foo();
  87 #pragma omp parallel
  88 #pragma omp single firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
  89   foo();
  90 #pragma omp parallel
  91 #pragma omp single 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 '('}}
  92   foo();
  93 #pragma omp parallel
  94 #pragma omp single firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
  95   foo();
  96 #pragma omp parallel
  97 #pragma omp single firstprivate(z, a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}}
  98   foo();
  99 #pragma omp parallel
 100 #pragma omp single firstprivate(argv[1]) // expected-error {{expected variable name}}
 101   foo();
 102 #pragma omp parallel
 103 #pragma omp single firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
 104   foo();
 105 #pragma omp parallel
 106 #pragma omp single firstprivate(h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}
 107   foo();
 108 #pragma omp parallel
 109 #pragma omp single linear(i) // expected-error {{unexpected OpenMP clause 'linear' in directive '#pragma omp single'}}
 110   foo();
 111 #pragma omp parallel
 112   {
 113     int v = 0;
 114     int i;                         // expected-note {{variable with automatic storage duration is predetermined as private; perhaps you forget to enclose 'omp single' directive into a parallel or another task region?}}
 115 #pragma omp single firstprivate(i) // expected-error {{firstprivate variable must be shared}}
 116     foo();
 117     v += i;
 118   }
 119 #pragma omp parallel shared(i)
 120 #pragma omp parallel private(i)
 121 #pragma omp single firstprivate(j)
 122   foo();
 123 #pragma omp parallel
 124 #pragma omp single firstprivate(i)
 125   foo();
 126 #pragma omp parallel
 127 #pragma omp single firstprivate(g) // expected-error {{calling a private constructor of class 'S5'}}
 128   foo();
 129 #pragma omp parallel private(i)    // expected-note {{defined as private}}
 130 #pragma omp single firstprivate(i) // expected-error {{firstprivate variable must be shared}}
 131   foo();
 132 #pragma omp parallel reduction(+ : i) // expected-note {{defined as reduction}}
 133 #pragma omp single firstprivate(i)    // expected-error {{firstprivate variable must be shared}}
 134   foo();
 135   return 0;
 136 }
 137
 138 namespace A {
 139 double x;
 140 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
 141 }
 142 namespace B {
 143 using A::x;
 144 }
 145
 146 int main(int argc, char **argv) {
 147   const int d = 5;
 148   const int da[5] = {0};
 149   S4 e(4);
 150   S5 g(5);
 151   S3 m;
 152   S6 n(2);
 153   int i, z;
 154   int &j = i;
 155 #pragma omp parallel
 156 #pragma omp single firstprivate // expected-error {{expected '(' after 'firstprivate'}}
 157   foo();
 158 #pragma omp parallel
 159 #pragma omp single firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
 160   foo();
 161 #pragma omp parallel
 162 #pragma omp single firstprivate() // expected-error {{expected expression}}
 163   foo();
 164 #pragma omp parallel
 165 #pragma omp single firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
 166   foo();
 167 #pragma omp parallel
 168 #pragma omp single firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
 169   foo();
 170 #pragma omp parallel
 171 #pragma omp single firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
 172   foo();
 173 #pragma omp parallel
 174 #pragma omp single firstprivate(argc, z)
 175   foo();
 176 #pragma omp parallel
 177 #pragma omp single firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
 178   foo();
 179 #pragma omp parallel
 180 #pragma omp single firstprivate(a, b, c, d, f) // expected-error {{firstprivate variable with incomplete type 'S1'}}
 181   foo();
 182 #pragma omp parallel
 183 #pragma omp single firstprivate(argv[1]) // expected-error {{expected variable name}}
 184   foo();
 185 #pragma omp parallel
 186 #pragma omp single firstprivate(2 * 2) // expected-error {{expected variable name}}
 187   foo();
 188 #pragma omp parallel
 189 #pragma omp single firstprivate(ba) // OK
 190   foo();
 191 #pragma omp parallel
 192 #pragma omp single firstprivate(ca) // OK
 193   foo();
 194 #pragma omp parallel
 195 #pragma omp single firstprivate(da) // OK
 196   foo();
 197   int xa;
 198 #pragma omp parallel
 199 #pragma omp single firstprivate(xa) // OK
 200   foo();
 201 #pragma omp parallel
 202 #pragma omp single firstprivate(S2::S2s) // OK
 203   foo();
 204 #pragma omp parallel
 205 #pragma omp single firstprivate(S2::S2sc) // OK
 206   foo();
 207 #pragma omp parallel
 208 #pragma omp single safelen(5) // expected-error {{unexpected OpenMP clause 'safelen' in directive '#pragma omp single'}}
 209   foo();
 210 #pragma omp parallel
 211 #pragma omp single firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
 212   foo();
 213 #pragma omp parallel
 214 #pragma omp single firstprivate(m) // OK
 215   foo();
 216 #pragma omp parallel
 217 #pragma omp single firstprivate(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be firstprivate}}
 218   foo();
 219 #pragma omp parallel
 220 #pragma omp single private(xa), firstprivate(xa) // expected-error {{private variable cannot be firstprivate}} expected-note {{defined as private}}
 221   foo();
 222 #pragma omp parallel shared(xa)
 223 #pragma omp single firstprivate(xa) // OK: may be firstprivate
 224   foo();
 225 #pragma omp parallel
 226 #pragma omp single firstprivate(j)
 227   foo();
 228 #pragma omp parallel
 229 #pragma omp single firstprivate(g) // expected-error {{calling a private constructor of class 'S5'}}
 230   foo();
 231 #pragma omp parallel
 232 #pragma omp single firstprivate(n) // OK
 233   foo();
 234 #pragma omp parallel
 235   {
 236     int v = 0;
 237     int i;                         // expected-note {{variable with automatic storage duration is predetermined as private; perhaps you forget to enclose 'omp single' directive into a parallel or another task region?}}
 238 #pragma omp single firstprivate(i) // expected-error {{firstprivate variable must be shared}}
 239     foo();
 240     v += i;
 241   }
 242 #pragma omp parallel private(i)    // expected-note {{defined as private}}
 243 #pragma omp single firstprivate(i) // expected-error {{firstprivate variable must be shared}}
 244   foo();
 245 #pragma omp parallel reduction(+ : i) // expected-note {{defined as reduction}}
 246 #pragma omp single firstprivate(i)    // expected-error {{firstprivate variable must be shared}}
 247   foo();
 248   static int t;
 249 #pragma omp single firstprivate(t)    // OK
 250   foo();
 251
 252   return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<S4, S5>' requested here}}
 253 }