1// RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 %s
2
3void foo() {
4}
5
6bool foobool(int argc) {
7  return argc;
8}
9
10struct S1; // expected-note {{declared here}} expected-note{{forward declaration of 'S1'}}
11extern S1 a;
12class S2 {
13  mutable int a;
14public:
15  S2():a(0) { }
16  static float S2s; // expected-note {{static data member is predetermined as shared}}
17};
18const S2 b;
19const S2 ba[5];
20class S3 {
21  int a;
22public:
23  S3():a(0) { }
24};
25const S3 c; // expected-note {{global variable is predetermined as shared}}
26const S3 ca[5]; // expected-note {{global variable is predetermined as shared}}
27extern const int f; // expected-note {{global variable is predetermined as shared}}
28class S4 {
29  int a;
30  S4(); // expected-note {{implicitly declared private here}}
31public:
32  S4(int v):a(v) { }
33};
34class S5 {
35  int a;
36  S5():a(0) {} // expected-note {{implicitly declared private here}}
37public:
38  S5(int v):a(v) { }
39};
40
41int threadvar;
42#pragma omp threadprivate(threadvar) // expected-note {{defined as threadprivate or thread local}}
43
44namespace A {
45double x;
46#pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
47}
48namespace B {
49using A::x;
50}
51
52int main(int argc, char **argv) {
53  const int d = 5; // expected-note {{constant variable is predetermined as shared}}
54  const int da[5] = { 0 }; // expected-note {{constant variable is predetermined as shared}}
55  S4 e(4);
56  S5 g[] = {5, 6};
57  int i;
58  int &j = i;
59  #pragma omp parallel private // expected-error {{expected '(' after 'private'}}
60  #pragma omp parallel private ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
61  #pragma omp parallel private () // expected-error {{expected expression}}
62  #pragma omp parallel private (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
63  #pragma omp parallel private (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
64  #pragma omp parallel private (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
65  #pragma omp parallel private (argc argv) // expected-error {{expected ',' or ')' in 'private' clause}}
66  #pragma omp parallel private (S1) // expected-error {{'S1' does not refer to a value}}
67  #pragma omp parallel private (a, b, c, d, f) // expected-error {{a private variable with incomplete type 'S1'}} expected-error 3 {{shared variable cannot be private}}
68  #pragma omp parallel private (argv[1]) // expected-error {{expected variable name}}
69  #pragma omp parallel private(ba)
70  #pragma omp parallel private(ca) // expected-error {{shared variable cannot be private}}
71  #pragma omp parallel private(da) // expected-error {{shared variable cannot be private}}
72  #pragma omp parallel private(S2::S2s) // expected-error {{shared variable cannot be private}}
73  #pragma omp parallel private(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
74  #pragma omp parallel private(threadvar, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be private}}
75  #pragma omp parallel shared(i), private(i) // expected-error {{shared variable cannot be private}} expected-note {{defined as shared}}
76  foo();
77  #pragma omp parallel firstprivate(i) private(i) // expected-error {{firstprivate variable cannot be private}} expected-note {{defined as firstprivate}}
78  foo();
79  #pragma omp parallel private(i)
80  #pragma omp parallel private(j)
81  foo();
82  #pragma omp parallel firstprivate(i)
83  for (int k = 0; k < 10; ++k) {
84    #pragma omp parallel private(i)
85    foo();
86  }
87  static int m;
88  #pragma omp parallel private(m) // OK
89  foo();
90
91  return 0;
92}
93