1 // RUN: %clang_cc1 -verify=expected,omp51 -fopenmp -ferror-limit 100 -o - %s -Wuninitialized
2
3 // RUN: %clang_cc1 -verify=expected,omp51 -fopenmp-simd -ferror-limit 100 -o - %s -Wuninitialized
4
5 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp -fopenmp-version=50 -ferror-limit 100 -o - %s -Wuninitialized
6
7 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp-simd -fopenmp-version=50 -ferror-limit 100 -o - %s -Wuninitialized
8
9 void foo();
10
11 template <class T, typename S, int N>
tmain(T argc,S ** argv)12 T tmain(T argc, S **argv) {
13 T i;
14 #pragma omp target
15 #pragma omp teams distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
16 for (i = 0; i < argc; ++i)
17 foo();
18 #pragma omp target
19 #pragma omp teams distribute parallel for simd proc_bind( // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
20 for (i = 0; i < argc; ++i)
21 foo();
22 #pragma omp target
23 #pragma omp teams distribute parallel for simd proc_bind() // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
24 for (i = 0; i < argc; ++i)
25 foo();
26 #pragma omp target
27 #pragma omp teams distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
28 for (i = 0; i < argc; ++i)
29 foo();
30 #pragma omp target
31 #pragma omp teams distribute parallel for simd proc_bind(close), proc_bind(spread) // expected-error {{directive '#pragma omp teams distribute parallel for simd' cannot contain more than one 'proc_bind' clause}}
32 for (i = 0; i < argc; ++i)
33 foo();
34 #pragma omp target
35 #pragma omp teams distribute parallel for simd proc_bind(x) // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
36 for (i = 0; i < argc; ++i)
37 foo();
38
39 #pragma omp target
40 #pragma omp teams distribute parallel for simd proc_bind(master)
41 for (i = 0; i < argc; ++i)
42 foo();
43
44 #pragma omp parallel proc_bind(close)
45 #pragma omp target
46 #pragma omp teams distribute parallel for simd proc_bind(spread)
47 for (i = 0; i < argc; ++i)
48 foo();
49
50 return T();
51 }
52
main(int argc,char ** argv)53 int main(int argc, char **argv) {
54 int i;
55 #pragma omp target
56 #pragma omp teams distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
57 for (i = 0; i < argc; ++i)
58 foo();
59 #pragma omp target
60 #pragma omp teams distribute parallel for simd proc_bind( // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
61 for (i = 0; i < argc; ++i)
62 foo();
63 #pragma omp target
64 #pragma omp teams distribute parallel for simd proc_bind() // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
65 for (i = 0; i < argc; ++i)
66 foo();
67 #pragma omp target
68 #pragma omp teams distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
69 for (i = 0; i < argc; ++i)
70 foo();
71 #pragma omp target
72 #pragma omp teams distribute parallel for simd proc_bind(close), proc_bind(spread) // expected-error {{directive '#pragma omp teams distribute parallel for simd' cannot contain more than one 'proc_bind' clause}}
73 for (i = 0; i < argc; ++i)
74 foo();
75 #pragma omp target
76 #pragma omp teams distribute parallel for simd proc_bind(x) // omp50-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} omp51-error {{expected 'master', 'close', 'spread' or 'primary' in OpenMP clause 'proc_bind'}}
77 for (i = 0; i < argc; ++i)
78 foo();
79
80 #pragma omp target
81 #pragma omp teams distribute parallel for simd proc_bind(master)
82 for (i = 0; i < argc; ++i)
83 foo();
84
85 #pragma omp parallel proc_bind(close)
86 #pragma omp target
87 #pragma omp teams distribute parallel for simd proc_bind(spread)
88 for (i = 0; i < argc; ++i)
89 foo();
90 return tmain<int, char, 3>(argc, argv);
91 }
92