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
16 #pragma omp distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
17 for (i = 0; i < argc; ++i)
18 foo();
19 #pragma omp target
20 #pragma omp teams
21 #pragma omp 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 '('}}
22 for (i = 0; i < argc; ++i)
23 foo();
24 #pragma omp target
25 #pragma omp teams
26 #pragma omp 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'}}
27 for (i = 0; i < argc; ++i)
28 foo();
29 #pragma omp target
30 #pragma omp teams
31 #pragma omp distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
32 for (i = 0; i < argc; ++i)
33 foo();
34 #pragma omp target
35 #pragma omp teams
36 #pragma omp distribute parallel for simd proc_bind(close), proc_bind(spread) // expected-error {{directive '#pragma omp distribute parallel for simd' cannot contain more than one 'proc_bind' clause}}
37 for (i = 0; i < argc; ++i)
38 foo();
39 #pragma omp target
40 #pragma omp teams
41 #pragma omp 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'}}
42 for (i = 0; i < argc; ++i)
43 foo();
44
45 #pragma omp target
46 #pragma omp teams
47 #pragma omp distribute parallel for simd proc_bind(master)
48 for (i = 0; i < argc; ++i)
49 foo();
50
51 #pragma omp parallel proc_bind(close)
52 #pragma omp target
53 #pragma omp teams
54 #pragma omp distribute parallel for simd proc_bind(spread)
55 for (i = 0; i < argc; ++i)
56 foo();
57
58 return T();
59 }
60
main(int argc,char ** argv)61 int main(int argc, char **argv) {
62 int i;
63 #pragma omp target
64 #pragma omp teams
65 #pragma omp distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
66 for (i = 0; i < argc; ++i)
67 foo();
68 #pragma omp target
69 #pragma omp teams
70 #pragma omp 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 '('}}
71 for (i = 0; i < argc; ++i)
72 foo();
73 #pragma omp target
74 #pragma omp teams
75 #pragma omp 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'}}
76 for (i = 0; i < argc; ++i)
77 foo();
78 #pragma omp target
79 #pragma omp teams
80 #pragma omp distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
81 for (i = 0; i < argc; ++i)
82 foo();
83 #pragma omp target
84 #pragma omp teams
85 #pragma omp distribute parallel for simd proc_bind(close), proc_bind(spread) // expected-error {{directive '#pragma omp distribute parallel for simd' cannot contain more than one 'proc_bind' clause}}
86 for (i = 0; i < argc; ++i)
87 foo();
88 #pragma omp target
89 #pragma omp teams
90 #pragma omp 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'}}
91 for (i = 0; i < argc; ++i)
92 foo();
93
94 #pragma omp target
95 #pragma omp teams
96 #pragma omp distribute parallel for simd proc_bind(master)
97 for (i = 0; i < argc; ++i)
98 foo();
99
100 #pragma omp parallel proc_bind(close)
101 #pragma omp target
102 #pragma omp teams
103 #pragma omp distribute parallel for simd proc_bind(spread)
104 for (i = 0; i < argc; ++i)
105 foo();
106 return tmain<int, char, 3>(argc, argv);
107 }
108