Clang Project

clang_source_code/test/OpenMP/teams_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 {{declared here}} expected-note {{forward declaration of 'S1'}}
14extern S1 a;
15class S2 {
16  mutable int a;
17public:
18  S2():a(0) { }
19  static float S2s; // expected-note {{predetermined as shared}}
20};
21const S2 b;
22const S2 ba[5];
23class S3 {
24  int a;
25public:
26  S3():a(0) { }
27};
28const S3 c; // expected-note {{'c' defined here}}
29const S3 ca[5]; // expected-note {{'ca' defined here}}
30extern const int f;  // expected-note {{'f' declared here}}
31class S4 {
32  int a;
33  S4(); // expected-note {{implicitly declared private here}}
34public:
35  S4(int v):a(v) { }
36};
37class S5 { 
38  int a;
39  S5():a(0) {} // expected-note {{implicitly declared private here}}
40public:
41  S5(int v):a(v) { }
42};
43
44S3 h;
45#pragma omp threadprivate(h) // expected-note {{defined as threadprivate or thread local}}
46
47
48int main(int argc, char **argv) {
49  const int d = 5;  // expected-note {{'d' defined here}}
50  const int da[5] = { 0 }; // expected-note {{'da' defined here}}
51  S4 e(4);
52  S5 g(5);
53  int i;
54  int &j = i;
55
56  #pragma omp target
57  #pragma omp teams distribute parallel for private // expected-error {{expected '(' after 'private'}}
58  for (int k = 0; k < argc; ++k) ++k;
59
60  #pragma omp target
61  #pragma omp teams distribute parallel for private ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
62  for (int k = 0; k < argc; ++k) ++k;
63
64  #pragma omp target
65  #pragma omp teams distribute parallel for private () // expected-error {{expected expression}}
66  for (int k = 0; k < argc; ++k) ++k;
67
68  #pragma omp target
69  #pragma omp teams distribute parallel for private (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
70  for (int k = 0; k < argc; ++k) ++k;
71
72  #pragma omp target
73  #pragma omp teams distribute parallel for private (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
74  for (int k = 0; k < argc; ++k) ++k;
75
76  #pragma omp target
77  #pragma omp teams distribute parallel for private (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
78  for (int k = 0; k < argc; ++k) ++k;
79
80  #pragma omp target
81  #pragma omp teams distribute parallel for private (argc) allocate , allocate(, allocate(omp_default , allocate(omp_default_mem_alloc, allocate(omp_default_mem_alloc:, allocate(omp_default_mem_alloc: argc, allocate(omp_default_mem_alloc: argv), allocate(argv) // 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 '('}}
82  for (int k = 0; k < argc; ++k) ++k;
83
84  #pragma omp target
85  #pragma omp teams distribute parallel for private (S1) // expected-error {{'S1' does not refer to a value}}
86  for (int k = 0; k < argc; ++k) ++k;
87
88  #pragma omp target
89  #pragma omp teams distribute parallel for private (a, b, c, d, f) // expected-error {{private variable with incomplete type 'S1'}} expected-error 1 {{const-qualified variable without mutable fields cannot be private}} expected-error 2 {{const-qualified variable cannot be private}}
90  for (int k = 0; k < argc; ++k) ++k;
91
92  #pragma omp target
93  #pragma omp teams distribute parallel for private (argv[1]) // expected-error {{expected variable name}}
94  for (int k = 0; k < argc; ++k) ++k;
95
96  #pragma omp target
97  #pragma omp teams distribute parallel for private(ba)
98  for (int k = 0; k < argc; ++k) ++k;
99
100  #pragma omp target
101  #pragma omp teams distribute parallel for private(ca) // expected-error {{const-qualified variable without mutable fields cannot be private}}
102  for (int k = 0; k < argc; ++k) ++k;
103
104  #pragma omp target
105  #pragma omp teams distribute parallel for private(da) // expected-error {{const-qualified variable cannot be private}}
106  for (int k = 0; k < argc; ++k) ++k;
107
108  #pragma omp target
109  #pragma omp teams distribute parallel for private(S2::S2s) // expected-error {{shared variable cannot be private}}
110  for (int k = 0; k < argc; ++k) ++k;
111
112  #pragma omp target
113  #pragma omp teams distribute parallel for private(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
114  for (int k = 0; k < argc; ++k) ++k;
115
116  #pragma omp target
117  #pragma omp teams distribute parallel for private(h) // expected-error {{threadprivate or thread local variable cannot be private}}
118  for (int k = 0; k < argc; ++k) ++k;
119
120  #pragma omp target
121  #pragma omp teams distribute parallel for shared(i)
122  for (int k = 0; k < argc; ++k) ++k;
123
124  #pragma omp target
125  #pragma omp teams distribute parallel for firstprivate(i), private(i) // expected-error {{firstprivate variable cannot be private}} expected-note {{defined as firstprivate}}
126  for (int k = 0; k < argc; ++k) ++k;
127
128  #pragma omp target
129  #pragma omp teams distribute parallel for private(j)
130  for (int k = 0; k < argc; ++k) ++k;
131
132  #pragma omp target
133  #pragma omp teams distribute parallel for reduction(+:i)
134  for (int k = 0; k < argc; ++k) ++k;
135
136  #pragma omp distribute private(i)
137  for (int k = 0; k < 10; ++k) {
138    #pragma omp target
139    #pragma omp teams distribute parallel for private(i)
140    for (int x = 0; x < 10; ++x) foo();
141  }
142
143  #pragma omp target
144  #pragma omp teams distribute parallel for firstprivate(i)
145  for (int k = 0; k < 10; ++k) {
146  }
147
148  return 0;
149}
150
CodeThinker, Enjoy your reading code