clang/test/OpenMP/target_has_device_addr_messages.cpp

   1 // RUN: %clang_cc1 -std=c++11 -verify \
   2 // RUN:  -fopenmp -ferror-limit 200 %s -Wuninitialized
   3
   4 // RUN: %clang_cc1 -std=c++11 -verify \
   5 // RUN:  -fopenmp-simd -ferror-limit 200 %s -Wuninitialized
   6
   7 struct ST {
   8   int *a;
   9 };
  10 typedef int arr[10];
  11 typedef ST STarr[10];
  12 struct SA {
  13   const int d = 5;
  14   const int da[5] = { 0 };
  15   ST e;
  16   ST g[10];
  17   STarr &rg = g;
  18   int i;
  19   int &j = i;
  20   int *k = &j;
  21   int *&z = k;
  22   int aa[10];
  23   arr &raa = aa;
  24   void func(int arg) {
  25 #pragma omp target has_device_addr // expected-error {{expected '(' after 'has_device_addr'}}
  26     {}
  27 #pragma omp target has_device_addr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}}
  28     {}
  29 #pragma omp target has_device_addr() // expected-error {{expected expression}}
  30     {}
  31 #pragma omp target has_device_addr(alloc) // expected-error {{use of undeclared identifier 'alloc'}}
  32     {}
  33 #pragma omp target has_device_addr(arg // expected-error {{expected ')'}} expected-note {{to match this '('}}
  34     {}
  35 #pragma omp target has_device_addr(i) // OK
  36     {}
  37 #pragma omp target has_device_addr(j) // OK
  38     {}
  39 #pragma omp target has_device_addr(k) // OK
  40     {}
  41 #pragma omp target has_device_addr(z) // OK
  42     {}
  43 #pragma omp target has_device_addr(aa) // OK
  44     {}
  45 #pragma omp target has_device_addr(raa) // OK
  46     {}
  47 #pragma omp target has_device_addr(e) // OK
  48     {}
  49 #pragma omp target has_device_addr(g) // OK
  50     {}
  51 #pragma omp target has_device_addr(rg) // OK
  52     {}
  53 #pragma omp target has_device_addr(k,i,j) // OK
  54     {}
  55 #pragma omp target has_device_addr(d) // OK
  56     {}
  57 #pragma omp target has_device_addr(da) // OK
  58     {}
  59   return;
  60  }
  61 };
  62 struct SB {
  63   unsigned A;
  64   unsigned B;
  65   float Arr[100];
  66   float *Ptr;
  67   float *foo() {
  68     return &Arr[0];
  69   }
  70 };
  71
  72 struct SC {
  73   unsigned A : 2;
  74   unsigned B : 3;
  75   unsigned C;
  76   unsigned D;
  77   float Arr[100];
  78   SB S;
  79   SB ArrS[100];
  80   SB *PtrS;
  81   SB *&RPtrS;
  82   float *Ptr;
  83
  84   SC(SB *&_RPtrS) : RPtrS(_RPtrS) {}
  85 };
  86
  87 union SD {
  88   unsigned A;
  89   float B;
  90 };
  91
  92 struct S1;
  93 extern S1 a;
  94 class S2 {
  95   mutable int a;
  96 public:
  97   S2():a(0) { }
  98   S2(S2 &s2):a(s2.a) { }
  99   static float S2s;
 100   static const float S2sc;
 101 };
 102 const float S2::S2sc = 0;
 103 const S2 b;
 104 const S2 ba[5];
 105 class S3 {
 106   int a;
 107 public:
 108   S3():a(0) { }
 109   S3(S3 &s3):a(s3.a) { }
 110 };
 111 const S3 c;
 112 const S3 ca[5];
 113 extern const int f;
 114 class S4 {
 115   int a;
 116   S4();
 117   S4(const S4 &s4);
 118 public:
 119   S4(int v):a(v) { }
 120 };
 121 class S5 {
 122   int a;
 123   S5():a(0) {}
 124   S5(const S5 &s5):a(s5.a) { }
 125 public:
 126   S5(int v):a(v) { }
 127 };
 128
 129 S3 h;
 130 #pragma omp threadprivate(h)
 131
 132 typedef struct {
 133   int a;
 134 } S6;
 135
 136 template <typename T, int I>
 137 T tmain(T argc) {
 138   const T d = 5;
 139   const T da[5] = { 0 };
 140   S4 e(4);
 141   S5 g(5);
 142   S6 h[10];
 143   auto &rh = h;
 144   T i;
 145   T &j = i;
 146   T *k = &j;
 147   T *&z = k;
 148   T aa[10];
 149   auto &raa = aa;
 150   S6 *ps;
 151 #pragma omp target has_device_addr // expected-error {{expected '(' after 'has_device_addr'}}
 152   {}
 153 #pragma omp target has_device_addr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}}
 154   {}
 155 #pragma omp target has_device_addr() // expected-error {{expected expression}}
 156   {}
 157 #pragma omp target has_device_addr(alloc) // expected-error {{use of undeclared identifier 'alloc'}}
 158   {}
 159 #pragma omp target has_device_addr(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
 160   {}
 161 #pragma omp target has_device_addr(i) // OK
 162   {}
 163 #pragma omp target has_device_addr(j) // OK
 164   {}
 165 #pragma omp target has_device_addr(k) // OK
 166   {}
 167 #pragma omp target has_device_addr(z) // OK
 168   {}
 169 #pragma omp target has_device_addr(aa) // OK
 170   {}
 171 #pragma omp target has_device_addr(raa) // OK
 172   {}
 173 #pragma omp target has_device_addr(e) // OK
 174   {}
 175 #pragma omp target has_device_addr(g) // OK
 176   {}
 177 #pragma omp target has_device_addr(h) // OK
 178   {}
 179 #pragma omp target has_device_addr(rh) // OK
 180   {}
 181 #pragma omp target has_device_addr(k,i,j) // OK
 182   {}
 183 #pragma omp target has_device_addr(d) // OK
 184   {}
 185 #pragma omp target has_device_addr(da) // OK
 186   {}
 187 #pragma omp target map(ps) has_device_addr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 188   {}
 189 #pragma omp target has_device_addr(ps) map(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 190   {}
 191 #pragma omp target map(ps->a) has_device_addr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 192   {}
 193 #pragma omp target has_device_addr(ps) map(ps->a) // expected-error{{pointer cannot be mapped along with a section derived from itself}} expected-note{{used here}}
 194   {}
 195 #pragma omp target has_device_addr(ps) firstprivate(ps) // expected-error{{firstprivate variable cannot be in a has_device_addr clause in '#pragma omp target' directive}}
 196   {}
 197 #pragma omp target firstprivate(ps) has_device_addr(ps) // expected-error{{firstprivate variable cannot be in a has_device_addr clause in '#pragma omp target' directive}} expected-note{{defined as firstprivate}}
 198   {}
 199 #pragma omp target has_device_addr(ps) private(ps) // expected-error{{private variable cannot be in a has_device_addr clause in '#pragma omp target' directive}}
 200   {}
 201 #pragma omp target private(ps) has_device_addr(ps) // expected-error{{private variable cannot be in a has_device_addr clause in '#pragma omp target' directive}} expected-note{{defined as private}}
 202   {}
 203   return 0;
 204 }
 205
 206 int main(int argc, char **argv) {
 207   const int d = 5;
 208   const int da[5] = { 0 };
 209   S4 e(4);
 210   S5 g(5);
 211   S6 h[10];
 212   auto &rh = h;
 213   int i;
 214   int &j = i;
 215   int *k = &j;
 216   int *&z = k;
 217   int aa[10];
 218   auto &raa = aa;
 219   S6 *ps;
 220 #pragma omp target has_device_addr // expected-error {{expected '(' after 'has_device_addr'}}
 221   {}
 222 #pragma omp target has_device_addr( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}}
 223   {}
 224 #pragma omp target has_device_addr() // expected-error {{expected expression}}
 225   {}
 226 #pragma omp target has_device_addr(alloc) // expected-error {{use of undeclared identifier 'alloc'}}
 227   {}
 228 #pragma omp target has_device_addr(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
 229   {}
 230 #pragma omp target has_device_addr(i) // OK
 231   {}
 232 #pragma omp target has_device_addr(j) // OK
 233   {}
 234 #pragma omp target has_device_addr(k) // OK
 235   {}
 236 #pragma omp target has_device_addr(z) // OK
 237   {}
 238 #pragma omp target has_device_addr(aa) // OK
 239   {}
 240 #pragma omp target has_device_addr(raa) // OK
 241   {}
 242 #pragma omp target has_device_addr(e) // OK
 243   {}
 244 #pragma omp target has_device_addr(g) // OK
 245   {}
 246 #pragma omp target has_device_addr(h) // OK
 247   {}
 248 #pragma omp target has_device_addr(rh) // OK
 249   {}
 250 #pragma omp target has_device_addr(k,i,j) // OK
 251   {}
 252 #pragma omp target has_device_addr(d) // OK
 253   {}
 254 #pragma omp target has_device_addr(da) // OK
 255   {}
 256 #pragma omp target map(ps) has_device_addr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 257   {}
 258 #pragma omp target has_device_addr(ps) map(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 259   {}
 260 #pragma omp target map(ps->a) has_device_addr(ps) // expected-error{{variable already marked as mapped in current construct}} expected-note{{used here}}
 261   {}
 262 #pragma omp target has_device_addr(ps) map(ps->a) // expected-error{{pointer cannot be mapped along with a section derived from itself}} expected-note{{used here}}
 263   {}
 264 #pragma omp target has_device_addr(ps) firstprivate(ps) // expected-error{{firstprivate variable cannot be in a has_device_addr clause in '#pragma omp target' directive}}
 265   {}
 266 #pragma omp target firstprivate(ps) has_device_addr(ps) // expected-error{{firstprivate variable cannot be in a has_device_addr clause in '#pragma omp target' directive}} expected-note{{defined as firstprivate}}
 267   {}
 268 #pragma omp target has_device_addr(ps) private(ps) // expected-error{{private variable cannot be in a has_device_addr clause in '#pragma omp target' directive}}
 269   {}
 270 #pragma omp target private(ps) has_device_addr(ps) // expected-error{{private variable cannot be in a has_device_addr clause in '#pragma omp target' directive}} expected-note{{defined as private}}
 271   {}
 272   return tmain<int, 3>(argc);
 273 }