1 // RUN: %clang_cc1 -verify -fopenmp %s
2
3 struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
4 extern S1 a;
5 class S2 {
6 mutable int a;
7
8 public:
S2()9 S2() : a(0) {}
10 };
11 const S2 b;
12 const S2 ba[5];
13 class S3 {
14 int a;
15
16 public:
S3()17 S3() : a(0) {}
18 };
19 const S3 ca[5];
20 class S4 {
21 int a;
22 S4();
23
24 public:
S4(int v)25 S4(int v) : a(v) {
26 #pragma omp target firstprivate(a) firstprivate(this->a)
27 for (int k = 0; k < v; ++k)
28 ++this->a;
29 }
30 };
31 class S5 {
32 int a;
S5()33 S5() : a(0) {}
34
35 public:
S5(int v)36 S5(int v) : a(v) {}
operator =(S5 & s)37 S5 &operator=(S5 &s) {
38 #pragma omp target firstprivate(a) firstprivate(this->a) firstprivate(s.a) // expected-error {{expected variable name or data member of current class}}
39 for (int k = 0; k < s.a; ++k)
40 ++s.a;
41 return *this;
42 }
43 };
44
45 template <typename T>
46 class S6 {
47 public:
48 T a;
49
S6()50 S6() : a(0) {}
S6(T v)51 S6(T v) : a(v) {
52 #pragma omp target firstprivate(a) firstprivate(this->a)
53 for (int k = 0; k < v; ++k)
54 ++this->a;
55 }
operator =(S6 & s)56 S6 &operator=(S6 &s) {
57 #pragma omp target firstprivate(a) firstprivate(this->a) firstprivate(s.a) // expected-error {{expected variable name or data member of current class}}
58 for (int k = 0; k < s.a; ++k)
59 ++s.a;
60 return *this;
61 }
62 };
63
64 template <typename T>
65 class S7 : public T {
66 T a;
S7()67 S7() : a(0) {}
68
69 public:
S7(T v)70 S7(T v) : a(v) {
71 #pragma omp target firstprivate(a) firstprivate(this->a) firstprivate(T::a)
72 for (int k = 0; k < a.a; ++k)
73 ++this->a.a;
74 }
operator =(S7 & s)75 S7 &operator=(S7 &s) {
76 #pragma omp target firstprivate(a) firstprivate(this->a) firstprivate(s.a) firstprivate(s.T::a) // expected-error 2 {{expected variable name or data member of current class}}
77 for (int k = 0; k < s.a.a; ++k)
78 ++s.a.a;
79 return *this;
80 }
81 };
82
83 S3 h;
84 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
85
86 template <class I, class C>
foomain(I argc,C ** argv)87 int foomain(I argc, C **argv) {
88 I e(4);
89 I g(5);
90 int i;
91 int &j = i;
92 #pragma omp target firstprivate // expected-error {{expected '(' after 'firstprivate'}}
93 {}
94 #pragma omp target firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
95 {}
96 #pragma omp target firstprivate() // expected-error {{expected expression}}
97 {}
98 #pragma omp target firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
99 {}
100 #pragma omp target firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
101 {}
102 #pragma omp target firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
103 {}
104 #pragma omp target firstprivate(argc)
105 {}
106 #pragma omp target firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
107 {}
108 #pragma omp target firstprivate(a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}}
109 {}
110 #pragma omp target firstprivate(argv[1]) // expected-error {{expected variable name}}
111 {}
112 #pragma omp target firstprivate(e, g)
113 {}
114 #pragma omp target firstprivate(h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}
115 {}
116 #pragma omp target shared(i) // expected-error {{unexpected OpenMP clause 'shared' in directive '#pragma omp target'}}
117 #pragma omp parallel
118 {
119 int v = 0;
120 int i;
121 }
122 #pragma omp parallel shared(i)
123 #pragma omp parallel firstprivate(i)
124 #pragma omp target firstprivate(j)
125 {}
126 #pragma omp target firstprivate(i)
127 {}
128 return 0;
129 }
130
bar(S4 a[2])131 void bar(S4 a[2]) {
132 #pragma omp parallel
133 #pragma omp target firstprivate(a)
134 {}
135 }
136
137 namespace A {
138 double x;
139 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
140 }
141 namespace B {
142 using A::x;
143 }
144
main(int argc,char ** argv)145 int main(int argc, char **argv) {
146 S4 e(4);
147 S5 g(5);
148 S6<float> s6(0.0) , s6_0(1.0);
149 S7<S6<float> > s7(0.0) , s7_0(1.0);
150 int i;
151 int &j = i;
152 #pragma omp target firstprivate // expected-error {{expected '(' after 'firstprivate'}}
153 {}
154 #pragma omp target firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
155 {}
156 #pragma omp target firstprivate() // expected-error {{expected expression}}
157 {}
158 #pragma omp target firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
159 {}
160 #pragma omp target firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
161 {}
162 #pragma omp target firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
163 {}
164 #pragma omp target firstprivate(argc)
165 {}
166 #pragma omp target firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
167 {}
168 #pragma omp target firstprivate(a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}}
169 {}
170 #pragma omp target firstprivate(argv[1]) // expected-error {{expected variable name}}
171 {}
172 #pragma omp target firstprivate(e, g)
173 {}
174 #pragma omp target firstprivate(h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}
175 {}
176 #pragma omp target firstprivate(B::x) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}
177 {}
178 #pragma omp target shared(i) // expected-error {{unexpected OpenMP clause 'shared' in directive '#pragma omp target'}}
179 #pragma omp parallel
180 {
181 int i;
182 }
183 #pragma omp parallel shared(i)
184 #pragma omp parallel firstprivate(i)
185 #pragma omp target firstprivate(j)
186 {}
187 #pragma omp target firstprivate(i)
188 {}
189 static int si;
190 #pragma omp target firstprivate(si) // OK
191 {}
192 #pragma omp target map(i) firstprivate(i) // expected-error {{firstprivate variable cannot be in a map clause in '#pragma omp target' directive}}
193 {}
194 s6 = s6_0; // expected-note {{in instantiation of member function 'S6<float>::operator=' requested here}}
195 s7 = s7_0; // expected-note {{in instantiation of member function 'S7<S6<float> >::operator=' requested here}}
196 return foomain(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<int, char>' requested here}}
197 }
198
199