Clang Project

clang_source_code/test/OpenMP/distribute_parallel_for_private_messages.cpp
1// RUN: %clang_cc1 -verify -fopenmp %s
2
3// RUN: %clang_cc1 -verify -fopenmp-simd %s
4
5extern int omp_default_mem_alloc;
6void foo() {
7}
8
9bool foobool(int argc) {
10  return argc;
11}
12
13struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
14extern S1 a;
15class S2 {
16  mutable int a;
17
18public:
19  S2() : a(0) {}
20};
21const S2 b;
22const S2 ba[5];
23class S3 {
24  int a;
25
26public:
27  S3() : a(0) {}
28};
29const S3 ca[5];
30class S4 {
31  int a;
32  S4(); // expected-note {{implicitly declared private here}}
33
34public:
35  S4(int v) : a(v) {
36#pragma omp target
37#pragma omp teams
38#pragma omp distribute parallel for private(a) private(this->a) allocate , allocate(, allocate(omp_default , allocate(omp_default_mem_alloc, allocate(omp_default_mem_alloc:, allocate(omp_default_mem_alloc: a, allocate(omp_default_mem_alloc: a), allocate(a) // 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 '('}}
39    for (int k = 0; k < v; ++k)
40      ++this->a;
41  }
42};
43class S5 {
44  int a;
45  S5() : a(0) {} // expected-note {{implicitly declared private here}}
46
47public:
48  S5(int v) : a(v) {}
49  S5 &operator=(S5 &s) {
50#pragma omp target
51#pragma omp teams
52#pragma omp distribute parallel for private(a) private(this->a) private(s.a) // expected-error {{expected variable name or data member of current class}}
53    for (int k = 0; k < s.a; ++k) // expected-warning {{Non-trivial type 'S5' is mapped, only trivial types are guaranteed to be mapped correctly}}
54      ++s.a;
55    return *this;
56  }
57};
58
59template <typename T>
60class S6 {
61public:
62  T a;
63
64  S6() : a(0) {}
65  S6(T v) : a(v) {
66#pragma omp target
67#pragma omp teams
68#pragma omp distribute parallel for private(a) private(this->a)
69    for (int k = 0; k < v; ++k)
70      ++this->a;
71  }
72  S6 &operator=(S6 &s) {
73#pragma omp target
74#pragma omp teams
75#pragma omp distribute parallel for private(a) private(this->a) private(s.a) // expected-error {{expected variable name or data member of current class}}
76    for (int k = 0; k < s.a; ++k)
77      ++s.a;
78    return *this;
79  }
80};
81
82template <typename T>
83class S7 : public T {
84  T a;
85  S7() : a(0) {}
86
87public:
88  S7(T v) : a(v) {
89#pragma omp target
90#pragma omp teams
91#pragma omp distribute parallel for private(a) private(this->a) private(T::a)
92    for (int k = 0; k < a.a; ++k)
93      ++this->a.a;
94  }
95  S7 &operator=(S7 &s) {
96#pragma omp target
97#pragma omp teams
98#pragma omp distribute parallel for private(a) private(this->a) private(s.a) private(s.T::a) // expected-error 2 {{expected variable name or data member of current class}}
99    for (int k = 0; k < s.a.a; ++k)
100      ++s.a.a;
101    return *this;
102  }
103};
104
105S3 h;
106#pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
107
108template <class I, class C>
109int foomain(I argc, C **argv) {
110  I e(4);
111  I g(5);
112  int i;
113  int &j = i;
114#pragma omp target
115#pragma omp teams
116#pragma omp distribute parallel for private // expected-error {{expected '(' after 'private'}}
117  for (int k = 0; k < argc; ++k)
118    ++k;
119#pragma omp target
120#pragma omp teams
121#pragma omp distribute parallel for private( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
122  for (int k = 0; k < argc; ++k)
123    ++k;
124#pragma omp target
125#pragma omp teams
126#pragma omp distribute parallel for private() // expected-error {{expected expression}}
127  for (int k = 0; k < argc; ++k)
128    ++k;
129#pragma omp target
130#pragma omp teams
131#pragma omp distribute parallel for private(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
132  for (int k = 0; k < argc; ++k)
133    ++k;
134#pragma omp target
135#pragma omp teams
136#pragma omp distribute parallel for private(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
137  for (int k = 0; k < argc; ++k)
138    ++k;
139#pragma omp target
140#pragma omp teams
141#pragma omp distribute parallel for private(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
142  for (int k = 0; k < argc; ++k)
143    ++k;
144#pragma omp target
145#pragma omp teams
146#pragma omp distribute parallel for private(argc)
147  for (int k = 0; k < argc; ++k)
148    ++k;
149#pragma omp target
150#pragma omp teams
151#pragma omp distribute parallel for private(S1) // expected-error {{'S1' does not refer to a value}}
152  for (int k = 0; k < argc; ++k)
153    ++k;
154#pragma omp target
155#pragma omp teams
156#pragma omp distribute parallel for private(a, b) // expected-error {{private variable with incomplete type 'S1'}}
157  for (int k = 0; k < argc; ++k)
158    ++k;
159#pragma omp target
160#pragma omp teams
161#pragma omp distribute parallel for private(argv[1]) // expected-error {{expected variable name}}
162  for (int k = 0; k < argc; ++k)
163    ++k;
164#pragma omp target
165#pragma omp teams
166#pragma omp distribute parallel for private(e, g)
167  for (int k = 0; k < argc; ++k)
168    ++k;
169#pragma omp target
170#pragma omp teams
171#pragma omp distribute parallel for private(h) // expected-error {{threadprivate or thread local variable cannot be private}}
172  for (int k = 0; k < argc; ++k)
173    ++k;
174#pragma omp target
175#pragma omp teams
176#pragma omp distribute parallel for nowait // expected-error {{unexpected OpenMP clause 'nowait' in directive '#pragma omp distribute parallel for'}}
177  for (int k = 0; k < argc; ++k)
178    ++k;
179#pragma omp parallel
180  {
181    int v = 0;
182    int i;
183#pragma omp target
184#pragma omp teams
185#pragma omp distribute parallel for private(i)
186    for (int k = 0; k < argc; ++k) {
187      i = k;
188      v += i;
189    }
190  }
191#pragma omp parallel shared(i)
192#pragma omp parallel private(i)
193#pragma omp target
194#pragma omp teams
195#pragma omp distribute parallel for private(j)
196  for (int k = 0; k < argc; ++k)
197    ++k;
198#pragma omp target
199#pragma omp teams
200#pragma omp distribute parallel for private(i)
201  for (int k = 0; k < argc; ++k)
202    ++k;
203  return 0;
204}
205
206namespace A {
207double x;
208#pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
209}
210namespace B {
211using A::x;
212}
213
214int main(int argc, char **argv) {
215  S4 e(4);
216  S5 g(5);
217  S6<float> s6(0.0) , s6_0(1.0);
218  S7<S6<float> > s7(0.0) , s7_0(1.0);
219  int i;
220  int &j = i;
221#pragma omp target
222#pragma omp teams
223#pragma omp distribute parallel for private // expected-error {{expected '(' after 'private'}}
224  for (int k = 0; k < argc; ++k)
225    ++k;
226#pragma omp target
227#pragma omp teams
228#pragma omp distribute parallel for private( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
229  for (int k = 0; k < argc; ++k)
230    ++k;
231#pragma omp target
232#pragma omp teams
233#pragma omp distribute parallel for private() // expected-error {{expected expression}}
234  for (int k = 0; k < argc; ++k)
235    ++k;
236#pragma omp target
237#pragma omp teams
238#pragma omp distribute parallel for private(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
239  for (int k = 0; k < argc; ++k)
240    ++k;
241#pragma omp target
242#pragma omp teams
243#pragma omp distribute parallel for private(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
244  for (int k = 0; k < argc; ++k)
245    ++k;
246#pragma omp target
247#pragma omp teams
248#pragma omp distribute parallel for private(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
249  for (int k = 0; k < argc; ++k)
250    ++k;
251#pragma omp target
252#pragma omp teams
253#pragma omp distribute parallel for private(argc)
254  for (int k = 0; k < argc; ++k)
255    ++k;
256#pragma omp target
257#pragma omp teams
258#pragma omp distribute parallel for private(S1) // expected-error {{'S1' does not refer to a value}}
259  for (int k = 0; k < argc; ++k)
260    ++k;
261#pragma omp target
262#pragma omp teams
263#pragma omp distribute parallel for private(a, b) // expected-error {{private variable with incomplete type 'S1'}}
264  for (int k = 0; k < argc; ++k)
265    ++k;
266#pragma omp target
267#pragma omp teams
268#pragma omp distribute parallel for private(argv[1]) // expected-error {{expected variable name}}
269  for (int k = 0; k < argc; ++k)
270    ++k;
271#pragma omp target
272#pragma omp teams
273#pragma omp distribute parallel for private(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
274  for (int k = 0; k < argc; ++k)
275    ++k;
276#pragma omp target
277#pragma omp teams
278#pragma omp distribute parallel for private(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be private}}
279  for (int k = 0; k < argc; ++k)
280    ++k;
281#pragma omp target
282#pragma omp teams
283#pragma omp distribute parallel for nowait // expected-error {{unexpected OpenMP clause 'nowait' in directive '#pragma omp distribute parallel for'}}
284  for (int k = 0; k < argc; ++k)
285    ++k;
286#pragma omp parallel
287  {
288    int i;
289#pragma omp target
290#pragma omp teams
291#pragma omp distribute parallel for private(i)
292    for (int k = 0; k < argc; ++k)
293      ++k;
294  }
295#pragma omp parallel shared(i)
296#pragma omp parallel private(i)
297#pragma omp target
298#pragma omp teams
299#pragma omp distribute parallel for private(j)
300  for (int k = 0; k < argc; ++k)
301    ++k;
302#pragma omp target
303#pragma omp teams
304#pragma omp distribute parallel for private(i)
305  for (int k = 0; k < argc; ++k)
306    ++k;
307  static int m;
308#pragma omp target
309#pragma omp teams
310#pragma omp distribute parallel for private(m)
311  for (int k = 0; k < argc; ++k)
312    m = k + 2;
313
314  s6 = s6_0; // expected-note {{in instantiation of member function 'S6<float>::operator=' requested here}}
315  s7 = s7_0; // expected-note {{in instantiation of member function 'S7<S6<float> >::operator=' requested here}}
316  return foomain(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<int, char>' requested here}}
317}
318
319
CodeThinker, Enjoy your reading code