1 // RUN: %clang_cc1 -verify -fopenmp -ferror-limit 100 -o - %s
3 // RUN: %clang_cc1 -verify -fopenmp-simd -ferror-limit 100 -o - %s
7 template <class T, typename S, int N>
8 T tmain(T argc, S **argv) {
11 #pragma omp teams distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
12 for (i = 0; i < argc; ++i)
15 #pragma omp teams distribute parallel for simd proc_bind( // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
16 for (i = 0; i < argc; ++i)
19 #pragma omp teams distribute parallel for simd proc_bind() // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
20 for (i = 0; i < argc; ++i)
23 #pragma omp teams distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
24 for (i = 0; i < argc; ++i)
27 #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}}
28 for (i = 0; i < argc; ++i)
31 #pragma omp teams distribute parallel for simd proc_bind(x) // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
32 for (i = 0; i < argc; ++i)
36 #pragma omp teams distribute parallel for simd proc_bind(master)
37 for (i = 0; i < argc; ++i)
40 #pragma omp parallel proc_bind(close)
42 #pragma omp teams distribute parallel for simd proc_bind(spread)
43 for (i = 0; i < argc; ++i)
49 int main(int argc, char **argv) {
52 #pragma omp teams distribute parallel for simd proc_bind // expected-error {{expected '(' after 'proc_bind'}}
53 for (i = 0; i < argc; ++i)
56 #pragma omp teams distribute parallel for simd proc_bind( // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
57 for (i = 0; i < argc; ++i)
60 #pragma omp teams distribute parallel for simd proc_bind() // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
61 for (i = 0; i < argc; ++i)
64 #pragma omp teams distribute parallel for simd proc_bind(master // expected-error {{expected ')'}} expected-note {{to match this '('}}
65 for (i = 0; i < argc; ++i)
68 #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}}
69 for (i = 0; i < argc; ++i)
72 #pragma omp teams distribute parallel for simd proc_bind(x) // expected-error {{expected 'master', 'close' or 'spread' in OpenMP clause 'proc_bind'}}
73 for (i = 0; i < argc; ++i)
77 #pragma omp teams distribute parallel for simd proc_bind(master)
78 for (i = 0; i < argc; ++i)
81 #pragma omp parallel proc_bind(close)
83 #pragma omp teams distribute parallel for simd proc_bind(spread)
84 for (i = 0; i < argc; ++i)
86 return tmain<int, char, 3>(argc, argv);