1 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp45 -fopenmp -fopenmp-version=45 -fnoopenmp-use-tls -ferror-limit 100 -o - %s
2 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp5,host5 -fopenmp -fnoopenmp-use-tls -ferror-limit 100 -o - %s
3 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp5,dev5 -fopenmp -fopenmp-is-device -fopenmp-targets=x86_64-apple-macos10.7.0 -aux-triple x86_64-apple-macos10.7.0 -fnoopenmp-use-tls -ferror-limit 100 -o - %s
4 
5 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp5,host5 -fopenmp-simd -fnoopenmp-use-tls -ferror-limit 100 -o - %s
6 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp5,host5 -fopenmp-simd -fopenmp-is-device -fnoopenmp-use-tls -ferror-limit 100 -o - %s
7 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify=expected,omp45 -fopenmp-version=45 -fopenmp-simd -fnoopenmp-use-tls -ferror-limit 100 -o - %s
8 
9 #pragma omp end declare target // expected-error {{unexpected OpenMP directive '#pragma omp end declare target'}}
10 
11 int a, b, z; // omp5-error {{variable captured in declare target region must appear in a to clause}}
12 __thread int t; // expected-note {{defined as threadprivate or thread local}}
13 
14 #pragma omp declare target . // expected-error {{expected '(' after 'declare target'}}
15 
16 #pragma omp declare target
17 void f();
18 #pragma omp end declare target shared(a) // expected-warning {{extra tokens at the end of '#pragma omp end declare target' are ignored}}
19 
20 #pragma omp declare target map(a) // expected-error {{expected at least one 'to' or 'link' clause}} omp45-error {{unexpected 'map' clause, only 'to' or 'link' clauses expected}} omp5-error {{unexpected 'map' clause, only 'to', 'link' or 'device_type' clauses expected}}
21 
22 #pragma omp declare target to(foo1) // expected-error {{use of undeclared identifier 'foo1'}}
23 
24 #pragma omp declare target link(foo2) // expected-error {{use of undeclared identifier 'foo2'}}
25 
26 #pragma omp declare target to(f) device_type(host) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} dev5-note {{marked as 'device_type(host)' here}}
27 
28 void q();
29 #pragma omp declare target to(q) device_type(any) device_type(any) device_type(host) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} omp5-warning {{more than one 'device_type' clause is specified}}
30 
31 void c();
32 
33 void func() {} // expected-note {{'func' defined here}}
34 
35 #pragma omp declare target link(func) allocate(a) // expected-error {{function name is not allowed in 'link' clause}} omp45-error {{unexpected 'allocate' clause, only 'to' or 'link' clauses expected}} omp5-error {{unexpected 'allocate' clause, only 'to', 'link' or 'device_type' clauses expected}}
36 
37 void bar();
38 void baz() {bar();}
39 #pragma omp declare target(bar) // omp5-warning {{declaration marked as declare target after first use, it may lead to incorrect results}}
40 
41 extern int b;
42 
43 struct NonT {
44   int a;
45 };
46 
47 typedef int sint;
48 
49 template <typename T>
50 T bla1() { return 0; }
51 
52 #pragma omp declare target
53 template <typename T>
54 T bla2() { return 0; }
55 #pragma omp end declare target
56 
57 template<>
58 float bla2() { return 1.0; }
59 
60 #pragma omp declare target
61 void blub2() {
62   bla2<float>();
63   bla2<int>();
64 }
65 #pragma omp end declare target
66 
67 void t2() {
68 #pragma omp target
69   {
70     bla2<float>();
71     bla2<long>();
72   }
73 }
74 
75 #pragma omp declare target
76   void abc();
77 #pragma omp end declare target
78 void cba();
79 #pragma omp end declare target // expected-error {{unexpected OpenMP directive '#pragma omp end declare target'}}
80 
81 #pragma omp declare target
82 #pragma omp declare target
83 void def();
84 #pragma omp end declare target
85 void fed();
86 
87 #pragma omp declare target
88 #pragma omp threadprivate(a) // expected-note {{defined as threadprivate or thread local}}
89 extern int b;
90 int g;
91 
92 struct T {
93   int a;
94   virtual int method();
95 };
96 
97 class VC {
98   T member;
99   NonT member1;
100   public:
101     virtual int method() { T a; return 0; }
102 };
103 
104 struct C {
105   NonT a;
106   sint b;
107   int method();
108   int method1();
109 };
110 
111 int C::method1() {
112   return 0;
113 }
114 
115 void foo(int p) {
116   a = 0; // expected-error {{threadprivate variables cannot be used in target constructs}}
117   b = 0;
118   t = 1; // expected-error {{threadprivate variables cannot be used in target constructs}}
119   C object;
120   VC object1;
121   g = object.method();
122   g += object.method1();
123   g += object1.method() + p;
124   f(); // dev5-error {{function with 'device_type(host)' is not available on device}}
125   q();
126   c();
127 }
128 #pragma omp declare target
129 void foo1() {
130   [&](){ (void)(b+z);}(); // omp5-note {{variable 'z' is captured here}}
131 }
132 #pragma omp end declare target
133 
134 #pragma omp end declare target
135 #pragma omp end declare target
136 #pragma omp end declare target // expected-error {{unexpected OpenMP directive '#pragma omp end declare target'}}
137 
138 int C::method() {
139   return 0;
140 }
141 
142 struct S {
143 #pragma omp declare target
144   int v;
145 #pragma omp end declare target
146 };
147 
148 int main (int argc, char **argv) {
149 #pragma omp declare target // expected-error {{unexpected OpenMP directive '#pragma omp declare target'}}
150   int v;
151 #pragma omp end declare target // expected-error {{unexpected OpenMP directive '#pragma omp end declare target'}}
152   foo(v);
153   return (0);
154 }
155 
156 namespace {
157 #pragma omp declare target
158   int x;
159 }
160 #pragma omp end declare target
161 
162 #pragma omp declare target link(S) // expected-error {{'S' used in declare target directive is not a variable or a function name}}
163 
164 #pragma omp declare target (x, x) // expected-error {{'x' appears multiple times in clauses on the same declare target directive}}
165 #pragma omp declare target to(x) to(x) // expected-error {{'x' appears multiple times in clauses on the same declare target directive}}
166 #pragma omp declare target link(x) // expected-error {{'x' must not appear in both clauses 'to' and 'link'}}
167 
168 void bazz() {}
169 #pragma omp declare target to(bazz) device_type(nohost) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} host5-note 3{{marked as 'device_type(nohost)' here}}
170 void bazzz() {bazz();}
171 #pragma omp declare target to(bazzz) device_type(nohost) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}}
172 void any() {bazz();} // host5-error {{function with 'device_type(nohost)' is not available on host}}
173 void host1() {bazz();} // host5-error {{function with 'device_type(nohost)' is not available on host}}
174 #pragma omp declare target to(host1) device_type(host) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} dev5-note 3 {{marked as 'device_type(host)' here}}
175 void host2() {bazz();} //host5-error {{function with 'device_type(nohost)' is not available on host}}
176 #pragma omp declare target to(host2)
177 void device() {host1();} // dev5-error {{function with 'device_type(host)' is not available on device}}
178 #pragma omp declare target to(device) device_type(nohost) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} host5-note 2 {{marked as 'device_type(nohost)' here}}
179 void host3() {host1();} // dev5-error {{function with 'device_type(host)' is not available on device}}
180 #pragma omp declare target to(host3)
181 
182 #pragma omp declare target
183 void any1() {any();}
184 void any2() {host1();} // dev5-error {{function with 'device_type(host)' is not available on device}}
185 void any3() {device();} // host5-error {{function with 'device_type(nohost)' is not available on host}}
186 void any4() {any2();}
187 #pragma omp end declare target
188 
189 void any5() {any();}
190 void any6() {host1();}
191 void any7() {device();} // host5-error {{function with 'device_type(nohost)' is not available on host}}
192 void any8() {any2();}
193 
194 int MultiDevTy;
195 #pragma omp declare target to(MultiDevTy) device_type(any)    // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}}
196 #pragma omp declare target to(MultiDevTy) device_type(host)   // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} omp5-error {{'device_type(host)' does not match previously specified 'device_type(any)' for the same declaration}}
197 #pragma omp declare target to(MultiDevTy) device_type(nohost) // omp45-error {{unexpected 'device_type' clause, only 'to' or 'link' clauses expected}} omp5-error {{'device_type(nohost)' does not match previously specified 'device_type(any)' for the same declaration}}
198 
199 // TODO: Issue an error message error {{expected '#pragma omp end declare target'}} note {{to match this '#pragma omp declare target'}}
200 #pragma omp declare target
201