1// RUN: %clang_cc1 -verify -fopenmp=libiomp5 %s
2
3void foo() {
4}
5
6struct S1; // expected-note 2 {{declared here}}
7class S2 {
8  mutable int a;
9
10public:
11  S2() : a(0) {}
12  S2 &operator=(S2 &s2) { return *this; }
13};
14class S3 {
15  int a;
16
17public:
18  S3() : a(0) {}
19  S3 &operator=(S3 &s3) { return *this; }
20};
21class S4 { // expected-note 2 {{'S4' declared here}}
22  int a;
23  S4();
24  S4 &operator=(const S4 &s4);
25
26public:
27  S4(int v) : a(v) {}
28};
29class S5 { // expected-note 2 {{'S5' declared here}}
30  int a;
31  S5() : a(0) {}
32  S5 &operator=(const S5 &s5) { return *this; }
33
34public:
35  S5(int v) : a(v) {}
36};
37
38S2 k;
39S3 h;
40S4 l(3); // expected-note 2 {{'l' defined here}}
41S5 m(4); // expected-note 2 {{'m' defined here}}
42#pragma omp threadprivate(h, k, l, m)
43
44template <class T, class C>
45T tmain(T argc, C **argv) {
46  T i;
47#pragma omp parallel
48#pragma omp single copyprivate // expected-error {{expected '(' after 'copyprivate'}}
49#pragma omp parallel
50#pragma omp single copyprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
51#pragma omp parallel
52#pragma omp single copyprivate() // expected-error {{expected expression}}
53#pragma omp parallel
54#pragma omp single copyprivate(k // expected-error {{expected ')'}} expected-note {{to match this '('}}
55#pragma omp parallel
56#pragma omp single copyprivate(h, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
57#pragma omp parallel
58#pragma omp single copyprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
59#pragma omp parallel
60#pragma omp single copyprivate(l) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}}
61#pragma omp parallel
62#pragma omp single copyprivate(S1) // expected-error {{'S1' does not refer to a value}}
63#pragma omp parallel
64#pragma omp single copyprivate(argv[1]) // expected-error {{expected variable name}}
65#pragma omp parallel // expected-note {{implicitly determined as shared}}
66#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
67#pragma omp parallel
68#pragma omp single copyprivate(m) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}}
69  foo();
70#pragma omp parallel private(i)
71  {
72#pragma omp single copyprivate(i)
73    foo();
74  }
75#pragma omp parallel shared(i) // expected-note {{defined as shared}}
76  {
77#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
78    foo();
79  }
80#pragma omp parallel private(i)
81#pragma omp parallel default(shared) // expected-note {{implicitly determined as shared}}
82  {
83#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
84    foo();
85  }
86#pragma omp parallel private(i)
87#pragma omp parallel // expected-note {{implicitly determined as shared}}
88  {
89#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
90    foo();
91  }
92#pragma omp parallel
93#pragma omp single private(i) copyprivate(i) // expected-error {{private variable cannot be copyprivate}} expected-note {{defined as private}}
94  foo();
95#pragma omp parallel
96#pragma omp single firstprivate(i) copyprivate(i) // expected-error {{firstprivate variable cannot be copyprivate}} expected-note {{defined as firstprivate}}
97  foo();
98
99  return T();
100}
101
102int main(int argc, char **argv) {
103  int i;
104#pragma omp parallel
105#pragma omp single copyprivate // expected-error {{expected '(' after 'copyprivate'}}
106#pragma omp parallel
107#pragma omp single copyprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
108#pragma omp parallel
109#pragma omp single copyprivate() // expected-error {{expected expression}}
110#pragma omp parallel
111#pragma omp single copyprivate(k // expected-error {{expected ')'}} expected-note {{to match this '('}}
112#pragma omp parallel
113#pragma omp single copyprivate(h, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
114#pragma omp parallel
115#pragma omp single copyprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
116#pragma omp parallel
117#pragma omp single copyprivate(l) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}}
118#pragma omp parallel
119#pragma omp single copyprivate(S1) // expected-error {{'S1' does not refer to a value}}
120#pragma omp parallel
121#pragma omp single copyprivate(argv[1]) // expected-error {{expected variable name}}
122#pragma omp parallel // expected-note {{implicitly determined as shared}}
123#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
124#pragma omp parallel
125#pragma omp single copyprivate(m) // expected-error {{copyprivate variable must have an accessible, unambiguous copy assignment operator}}
126  foo();
127#pragma omp parallel private(i)
128  {
129#pragma omp single copyprivate(i)
130    foo();
131  }
132#pragma omp parallel shared(i) // expected-note {{defined as shared}}
133  {
134#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
135    foo();
136  }
137#pragma omp parallel private(i)
138#pragma omp parallel default(shared) // expected-note {{implicitly determined as shared}}
139  {
140#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
141    foo();
142  }
143#pragma omp parallel private(i)
144#pragma omp parallel // expected-note {{implicitly determined as shared}}
145  {
146#pragma omp single copyprivate(i) // expected-error {{copyprivate variable must be threadprivate or private in the enclosing context}}
147    foo();
148  }
149#pragma omp parallel
150#pragma omp single private(i) copyprivate(i) // expected-error {{private variable cannot be copyprivate}} expected-note {{defined as private}}
151  foo();
152#pragma omp parallel
153#pragma omp single firstprivate(i) copyprivate(i) // expected-error {{firstprivate variable cannot be copyprivate}} expected-note {{defined as firstprivate}}
154  foo();
155
156  return tmain(argc, argv); // expected-note {{in instantiation of function template specialization 'tmain<int, char>' requested here}}
157}
158