1 // RUN: %clang_cc1 -verify -std=c++11 -fopenmp -fopenmp-version=45 -ast-print %s -Wno-openmp-target | FileCheck %s
2 // RUN: %clang_cc1 -fopenmp -fopenmp-version=45 -x c++ -std=c++11 -emit-pch -o %t %s
3 // RUN: %clang_cc1 -fopenmp -fopenmp-version=45 -std=c++11 -include-pch %t -fsyntax-only -verify %s -ast-print -Wno-openmp-target | FileCheck %s
4 
5 // RUN: %clang_cc1 -verify -std=c++11 -fopenmp-simd -fopenmp-version=45 -ast-print %s -Wno-openmp-target | FileCheck %s
6 // RUN: %clang_cc1 -fopenmp-simd -fopenmp-version=45 -x c++ -std=c++11 -emit-pch -o %t %s
7 // RUN: %clang_cc1 -fopenmp-simd -fopenmp-version=45 -std=c++11 -include-pch %t -fsyntax-only -verify %s -ast-print -Wno-openmp-target | FileCheck %s
8 // expected-no-diagnostics
9 
10 #ifndef HEADER
11 #define HEADER
12 
13 struct S {
14   S(): a(0) {}
15   S(int v) : a(v) {}
16   int a;
17   typedef int type;
18 };
19 
20 template <typename T>
21 class S7 : public T {
22 protected:
23   T a;
24   S7() : a(0) {}
25 
26 public:
27   S7(typename T::type v) : a(v) {
28 #pragma omp target
29 #pragma omp teams
30 #pragma omp distribute parallel for private(a) private(this->a) private(T::a)
31     for (int k = 0; k < a.a; ++k)
32       ++this->a.a;
33   }
34   S7 &operator=(S7 &s) {
35 #pragma omp target
36 #pragma omp teams
37 #pragma omp distribute parallel for private(a) private(this->a)
38     for (int k = 0; k < s.a.a; ++k)
39       ++s.a.a;
40     return *this;
41   }
42 };
43 
44 // CHECK: #pragma omp distribute parallel for private(this->a) private(this->a) private(T::a){{$}}
45 // CHECK: #pragma omp distribute parallel for private(this->a) private(this->a)
46 // CHECK: #pragma omp distribute parallel for private(this->a) private(this->a) private(this->S::a)
47 
48 class S8 : public S7<S> {
49   S8() {}
50 
51 public:
52   S8(int v) : S7<S>(v){
53 #pragma omp target
54 #pragma omp teams
55 #pragma omp distribute parallel for private(a) private(this->a) private(S7<S>::a)
56     for (int k = 0; k < a.a; ++k)
57       ++this->a.a;
58   }
59   S8 &operator=(S8 &s) {
60 #pragma omp target
61 #pragma omp teams
62 #pragma omp distribute parallel for private(a) private(this->a)
63     for (int k = 0; k < s.a.a; ++k)
64       ++s.a.a;
65     return *this;
66   }
67 };
68 
69 // CHECK: #pragma omp distribute parallel for private(this->a) private(this->a) private(this->S7<S>::a)
70 // CHECK: #pragma omp distribute parallel for private(this->a) private(this->a)
71 
72 template <class T, int N>
73 T tmain(T argc) {
74   T b = argc, c, d, e, f, h;
75   static T a;
76 // CHECK: static T a;
77   static T g;
78 #pragma omp threadprivate(g)
79 #pragma omp target
80 #pragma omp teams
81 #pragma omp distribute parallel for dist_schedule(static, a) schedule(dynamic) default(none) copyin(g) firstprivate(a) allocate(a)
82   // CHECK: #pragma omp distribute parallel for dist_schedule(static, a) schedule(dynamic) default(none) copyin(g) firstprivate(a) allocate(a)
83   for (int i = 0; i < 2; ++i)
84     a = 2;
85 // CHECK-NEXT: for (int i = 0; i < 2; ++i)
86 // CHECK-NEXT: a = 2;
87 #pragma omp target
88 #pragma omp teams
89 #pragma omp distribute parallel for allocate(argc) private(argc, b), firstprivate(c, d), lastprivate(f) collapse(N) schedule(static, N) if (parallel :argc) num_threads(N) default(shared) shared(e) reduction(+ : h) dist_schedule(static,N)
90   for (int i = 0; i < 2; ++i)
91     for (int j = 0; j < 2; ++j)
92       for (int j = 0; j < 2; ++j)
93         for (int j = 0; j < 2; ++j)
94           for (int j = 0; j < 2; ++j)
95   for (int i = 0; i < 2; ++i)
96     for (int j = 0; j < 2; ++j)
97       for (int j = 0; j < 2; ++j)
98         for (int j = 0; j < 2; ++j)
99           for (int j = 0; j < 2; ++j)
100             a++;
101   // CHECK: #pragma omp distribute parallel for allocate(argc) private(argc,b) firstprivate(c,d) lastprivate(f) collapse(N) schedule(static, N) if(parallel: argc) num_threads(N) default(shared) shared(e) reduction(+: h) dist_schedule(static, N)
102   // CHECK-NEXT: for (int i = 0; i < 2; ++i)
103   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
104   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
105   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
106   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
107   // CHECK-NEXT: for (int i = 0; i < 2; ++i)
108   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
109   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
110   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
111   // CHECK-NEXT: for (int j = 0; j < 2; ++j)
112   // CHECK-NEXT: a++;
113   return T();
114 }
115 
116 void foo(int argc, char **argv) {
117   int b, c, d, e, f, h;
118   static int a;
119 // CHECK: static int a;
120   static float g;
121 #pragma omp threadprivate(g)
122   [&]() {
123 #pragma omp target
124 #pragma omp teams
125 #pragma omp distribute parallel for schedule(guided, argc) default(none) copyin(g) dist_schedule(static, a) private(a)
126     // CHECK: #pragma omp distribute parallel for schedule(guided, argc) default(none) copyin(g) dist_schedule(static, a) private(a)
127     for (int i = 0; i < 2; ++i)
128 // CHECK: for (int i = 0; i < 2; ++i)
129       [&]() {
130 	  a = 2;
131 	  // CHECK: a = 2;
132 	}();
133 
134   }();
135   [&]() {
136 #pragma omp target
137 #pragma omp teams
138 #pragma omp distribute parallel for private(argc, b), firstprivate(argv, c), lastprivate(d, f) collapse(2) schedule(auto) if (argc) num_threads(a) default(shared) shared(e) reduction(+ : h) dist_schedule(static, b)
139     for (int i = 0; i < 10; ++i)
140       for (int j = 0; j < 10; ++j)
141 	[&]() {
142 	  a++;
143 	}();
144     // CHECK: #pragma omp distribute parallel for private(argc,b) firstprivate(argv,c) lastprivate(d,f) collapse(2) schedule(auto) if(argc) num_threads(a) default(shared) shared(e) reduction(+: h) dist_schedule(static, b)
145     // CHECK-NEXT: for (int i = 0; i < 10; ++i)
146     // CHECK-NEXT: for (int j = 0; j < 10; ++j)
147     // CHECK: a++;
148   }();
149 }
150 
151 int main(int argc, char **argv) {
152   int b = argc, c, d, e, f, h;
153   static int a;
154 // CHECK: static int a;
155   static float g;
156 #pragma omp threadprivate(g)
157 #pragma omp target
158 #pragma omp teams
159 #pragma omp distribute parallel for schedule(guided, argc) default(none) copyin(g) dist_schedule(static, a) private(a)
160   // CHECK: #pragma omp distribute parallel for schedule(guided, argc) default(none) copyin(g) dist_schedule(static, a) private(a)
161   for (int i = 0; i < 2; ++i)
162     a = 2;
163 // CHECK-NEXT: for (int i = 0; i < 2; ++i)
164 // CHECK-NEXT: a = 2;
165 #pragma omp target
166 #pragma omp teams
167 #pragma omp distribute parallel for private(argc, b), firstprivate(argv, c), lastprivate(d, f) collapse(2) schedule(auto) if (argc) num_threads(a) default(shared) shared(e) reduction(+ : h) dist_schedule(static, b)
168   for (int i = 0; i < 10; ++i)
169     for (int j = 0; j < 10; ++j)
170       a++;
171   // CHECK: #pragma omp distribute parallel for private(argc,b) firstprivate(argv,c) lastprivate(d,f) collapse(2) schedule(auto) if(argc) num_threads(a) default(shared) shared(e) reduction(+: h) dist_schedule(static, b)
172  // CHECK-NEXT: for (int i = 0; i < 10; ++i)
173   // CHECK-NEXT: for (int j = 0; j < 10; ++j)
174   // CHECK-NEXT: a++;
175   return (tmain<int, 5>(argc) + tmain<char, 1>(argv[0][0]));
176 }
177 
178 #endif
179