1// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
2
3namespace X {
4  int x;
5};
6
7struct B {
8  static int ib; // expected-note {{'B::ib' declared here}}
9  static int bfoo() { return 8; }
10};
11
12int bfoo() { return 4; }
13
14int z;
15const int C1 = 1;
16const int C2 = 2;
17void test_linear_colons()
18{
19  int B = 0;
20  #pragma omp parallel for simd linear(B:bfoo())
21  for (int i = 0; i < 10; ++i) ;
22  // expected-error@+1 {{unexpected ':' in nested name specifier; did you mean '::'}}
23  #pragma omp parallel for simd linear(B::ib:B:bfoo())
24  for (int i = 0; i < 10; ++i) ;
25  // expected-error@+1 {{use of undeclared identifier 'ib'; did you mean 'B::ib'}}
26  #pragma omp parallel for simd linear(B:ib)
27  for (int i = 0; i < 10; ++i) ;
28  // expected-error@+1 {{unexpected ':' in nested name specifier; did you mean '::'?}}
29  #pragma omp parallel for simd linear(z:B:ib)
30  for (int i = 0; i < 10; ++i) ;
31  #pragma omp parallel for simd linear(B:B::bfoo())
32  for (int i = 0; i < 10; ++i) ;
33  #pragma omp parallel for simd linear(X::x : ::z)
34  for (int i = 0; i < 10; ++i) ;
35  #pragma omp parallel for simd linear(B,::z, X::x)
36  for (int i = 0; i < 10; ++i) ;
37  #pragma omp parallel for simd linear(::z)
38  for (int i = 0; i < 10; ++i) ;
39  // expected-error@+1 {{expected variable name}}
40  #pragma omp parallel for simd linear(B::bfoo())
41  for (int i = 0; i < 10; ++i) ;
42  #pragma omp parallel for simd linear(B::ib,B:C1+C2)
43  for (int i = 0; i < 10; ++i) ;
44}
45
46template<int L, class T, class N> T test_template(T* arr, N num) {
47  N i;
48  T sum = (T)0;
49  T ind2 = - num * L; // expected-note {{'ind2' defined here}}
50  // expected-error@+1 {{argument of a linear clause should be of integral or pointer type}}
51#pragma omp parallel for simd linear(ind2:L)
52  for (i = 0; i < num; ++i) {
53    T cur = arr[(int)ind2];
54    ind2 += L;
55    sum += cur;
56  }
57  return T();
58}
59
60template<int LEN> int test_warn() {
61  int ind2 = 0;
62  // expected-warning@+1 {{zero linear step (ind2 should probably be const)}}
63  #pragma omp parallel for simd linear(ind2:LEN)
64  for (int i = 0; i < 100; i++) {
65    ind2 += LEN;
66  }
67  return ind2;
68}
69
70struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
71extern S1 a;
72class S2 {
73  mutable int a;
74public:
75  S2():a(0) { }
76};
77const S2 b; // expected-note 2 {{'b' defined here}}
78const S2 ba[5];
79class S3 {
80  int a;
81public:
82  S3():a(0) { }
83};
84const S3 ca[5];
85class S4 {
86  int a;
87  S4();
88public:
89  S4(int v):a(v) { }
90};
91class S5 {
92  int a;
93  S5():a(0) {}
94public:
95  S5(int v):a(v) { }
96};
97
98S3 h;
99#pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
100
101template<class I, class C> int foomain(I argc, C **argv) {
102  I e(4);
103  I g(5);
104  int i;
105  int &j = i; // expected-note {{'j' defined here}}
106  #pragma omp parallel for simd linear // expected-error {{expected '(' after 'linear'}}
107  for (int k = 0; k < argc; ++k) ++k;
108  #pragma omp parallel for simd linear ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
109  for (int k = 0; k < argc; ++k) ++k;
110  #pragma omp parallel for simd linear () // expected-error {{expected expression}}
111  for (int k = 0; k < argc; ++k) ++k;
112  #pragma omp parallel for simd linear (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
113  for (int k = 0; k < argc; ++k) ++k;
114  #pragma omp parallel for simd linear (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
115  for (int k = 0; k < argc; ++k) ++k;
116  #pragma omp parallel for simd linear (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
117  for (int k = 0; k < argc; ++k) ++k;
118  #pragma omp parallel for simd linear (argc : 5)
119  for (int k = 0; k < argc; ++k) ++k;
120  #pragma omp parallel for simd linear (S1) // expected-error {{'S1' does not refer to a value}}
121  for (int k = 0; k < argc; ++k) ++k;
122  // expected-error@+2 {{linear variable with incomplete type 'S1'}}
123  // expected-error@+1 {{const-qualified variable cannot be linear}}
124  #pragma omp parallel for simd linear (a, b:B::ib)
125  for (int k = 0; k < argc; ++k) ++k;
126  #pragma omp parallel for simd linear (argv[1]) // expected-error {{expected variable name}}
127  for (int k = 0; k < argc; ++k) ++k;
128  #pragma omp parallel for simd linear(e, g)
129  for (int k = 0; k < argc; ++k) ++k;
130  #pragma omp parallel for simd linear(h) // expected-error {{threadprivate or thread local variable cannot be linear}}
131  for (int k = 0; k < argc; ++k) ++k;
132  #pragma omp parallel for simd linear(i)
133  for (int k = 0; k < argc; ++k) ++k;
134  #pragma omp parallel
135  {
136    int v = 0;
137    int i;
138    #pragma omp parallel for simd linear(v:i)
139    for (int k = 0; k < argc; ++k) { i = k; v += i; }
140  }
141  #pragma omp parallel for simd linear(j) // expected-error {{arguments of OpenMP clause 'linear' cannot be of reference type}}
142  for (int k = 0; k < argc; ++k) ++k;
143  int v = 0;
144  #pragma omp parallel for simd linear(v:j)
145  for (int k = 0; k < argc; ++k) { ++k; v += j; }
146  #pragma omp parallel for simd linear(i)
147  for (int k = 0; k < argc; ++k) ++k;
148  return 0;
149}
150
151namespace A {
152double x;
153#pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
154}
155namespace C {
156using A::x;
157}
158
159int main(int argc, char **argv) {
160  double darr[100];
161  // expected-note@+1 {{in instantiation of function template specialization 'test_template<-4, double, int>' requested here}}
162  test_template<-4>(darr, 4);
163  // expected-note@+1 {{in instantiation of function template specialization 'test_warn<0>' requested here}}
164  test_warn<0>();
165
166  S4 e(4); // expected-note {{'e' defined here}}
167  S5 g(5); // expected-note {{'g' defined here}}
168  int i;
169  int &j = i; // expected-note {{'j' defined here}}
170  #pragma omp parallel for simd linear // expected-error {{expected '(' after 'linear'}}
171  for (int k = 0; k < argc; ++k) ++k;
172  #pragma omp parallel for simd linear ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
173  for (int k = 0; k < argc; ++k) ++k;
174  #pragma omp parallel for simd linear () // expected-error {{expected expression}}
175  for (int k = 0; k < argc; ++k) ++k;
176  #pragma omp parallel for simd linear (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
177  for (int k = 0; k < argc; ++k) ++k;
178  #pragma omp parallel for simd linear (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
179  for (int k = 0; k < argc; ++k) ++k;
180  #pragma omp parallel for simd linear (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
181  for (int k = 0; k < argc; ++k) ++k;
182  #pragma omp parallel for simd linear (argc)
183  for (int k = 0; k < argc; ++k) ++k;
184  #pragma omp parallel for simd linear (S1) // expected-error {{'S1' does not refer to a value}}
185  for (int k = 0; k < argc; ++k) ++k;
186  // expected-error@+2 {{linear variable with incomplete type 'S1'}}
187  // expected-error@+1 {{const-qualified variable cannot be linear}}
188  #pragma omp parallel for simd linear (a, b)
189  for (int k = 0; k < argc; ++k) ++k;
190  #pragma omp parallel for simd linear (argv[1]) // expected-error {{expected variable name}}
191  for (int k = 0; k < argc; ++k) ++k;
192  // expected-error@+2 {{argument of a linear clause should be of integral or pointer type, not 'S4'}}
193  // expected-error@+1 {{argument of a linear clause should be of integral or pointer type, not 'S5'}}
194  #pragma omp parallel for simd linear(e, g)
195  for (int k = 0; k < argc; ++k) ++k;
196  #pragma omp parallel for simd linear(h, C::x) // expected-error 2 {{threadprivate or thread local variable cannot be linear}}
197  for (int k = 0; k < argc; ++k) ++k;
198  #pragma omp parallel
199  {
200    int i;
201    #pragma omp parallel for simd linear(i)
202    for (int k = 0; k < argc; ++k) ++k;
203    #pragma omp parallel for simd linear(i : 4)
204    for (int k = 0; k < argc; ++k) { ++k; i += 4; }
205  }
206  #pragma omp parallel for simd linear(j) // expected-error {{arguments of OpenMP clause 'linear' cannot be of reference type 'int &'}}
207  for (int k = 0; k < argc; ++k) ++k;
208  #pragma omp parallel for simd linear(i)
209  for (int k = 0; k < argc; ++k) ++k;
210
211  foomain<int,char>(argc,argv);
212  return 0;
213}
214
215