1 // RUN: %clang_cc1 -triple x86_64-apple-macos10.7.0 -verify -fopenmp -ferror-limit 100 -o - %s
2
foo()3 void foo() {
4 }
5
foobool(int argc)6 bool foobool(int argc) {
7 return argc;
8 }
9
10 struct S1; // expected-note {{declared here}} expected-note {{declared here}}
11
12 template <class T, int N>
tmain(T argc)13 T tmain(T argc) {
14 T b = argc, c, d, e, f, g;
15 char ** argv;
16 static T a;
17 // CHECK: static T a;
18 #pragma omp target
19 #pragma omp teams
20 #pragma omp distribute parallel for dist_schedule // expected-error {{expected '(' after 'dist_schedule'}}
21 for (int i = 0; i < 10; ++i) foo();
22 #pragma omp target
23 #pragma omp teams
24 #pragma omp distribute parallel for dist_schedule ( // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
25 for (int i = 0; i < 10; ++i) foo();
26 #pragma omp target
27 #pragma omp teams
28 #pragma omp distribute parallel for dist_schedule () // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}}
29 for (int i = 0; i < 10; ++i) foo();
30 #pragma omp target
31 #pragma omp teams
32 #pragma omp distribute parallel for dist_schedule (static // expected-error {{expected ')'}} expected-note {{to match this '('}}
33 for (int i = 0; i < 10; ++i) foo();
34 #pragma omp target
35 #pragma omp teams
36 #pragma omp distribute parallel for dist_schedule (static, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
37 for (int i = 0; i < 10; ++i) foo();
38 #pragma omp target
39 #pragma omp teams
40 #pragma omp distribute parallel for dist_schedule (argc)) // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}} expected-warning {{extra tokens at the end of '#pragma omp distribute parallel for' are ignored}}
41 for (int i = 0; i < 10; ++i) foo();
42 #pragma omp target
43 #pragma omp teams
44 #pragma omp distribute parallel for dist_schedule (static, argc > 0 ? argv[1] : argv[2]) // expected-error2 {{expression must have integral or unscoped enumeration type, not 'char *'}}
45 for (int i = 0; i < 10; ++i) foo();
46 #pragma omp target
47 #pragma omp teams
48 #pragma omp distribute parallel for dist_schedule (static), dist_schedule (static, 1) // expected-error {{directive '#pragma omp distribute parallel for' cannot contain more than one 'dist_schedule' clause}}
49 for (int i = 0; i < 10; ++i) foo();
50 #pragma omp target
51 #pragma omp teams
52 #pragma omp distribute parallel for dist_schedule (static, S1) // expected-error {{'S1' does not refer to a value}}
53 for (int i = 0; i < 10; ++i) foo();
54 #pragma omp target
55 #pragma omp teams
56 #pragma omp distribute parallel for dist_schedule (static, argv[1]=2) // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error3 {{expression must have integral or unscoped enumeration type, not 'char *'}}
57 for (int i = 0; i < 10; ++i) foo();
58 return T();
59 }
60
main(int argc,char ** argv)61 int main(int argc, char **argv) {
62 #pragma omp target
63 #pragma omp teams
64 #pragma omp distribute parallel for dist_schedule // expected-error {{expected '(' after 'dist_schedule'}}
65 for (int i = 0; i < 10; ++i) foo();
66 #pragma omp target
67 #pragma omp teams
68 #pragma omp distribute parallel for dist_schedule ( // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
69 for (int i = 0; i < 10; ++i) foo();
70 #pragma omp target
71 #pragma omp teams
72 #pragma omp distribute parallel for dist_schedule () // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}}
73 for (int i = 0; i < 10; ++i) foo();
74 #pragma omp target
75 #pragma omp teams
76 #pragma omp distribute parallel for dist_schedule (static // expected-error {{expected ')'}} expected-note {{to match this '('}}
77 for (int i = 0; i < 10; ++i) foo();
78 #pragma omp target
79 #pragma omp teams
80 #pragma omp distribute parallel for dist_schedule (static, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
81 for (int i = 0; i < 10; ++i) foo();
82 #pragma omp target
83 #pragma omp teams
84 #pragma omp distribute parallel for dist_schedule (argc)) // expected-error {{expected 'static' in OpenMP clause 'dist_schedule'}} expected-warning {{extra tokens at the end of '#pragma omp distribute parallel for' are ignored}}
85 for (int i = 0; i < 10; ++i) foo();
86 #pragma omp target
87 #pragma omp teams
88 #pragma omp distribute parallel for dist_schedule (static, argc > 0 ? argv[1] : argv[2]) // expected-error {{expression must have integral or unscoped enumeration type, not 'char *'}}
89 for (int i = 0; i < 10; ++i) foo();
90 #pragma omp target
91 #pragma omp teams
92 #pragma omp distribute parallel for dist_schedule (static), dist_schedule (static, 1) // expected-error {{directive '#pragma omp distribute parallel for' cannot contain more than one 'dist_schedule' clause}}
93 for (int i = 0; i < 10; ++i) foo();
94 #pragma omp target
95 #pragma omp teams
96 #pragma omp distribute parallel for dist_schedule (static, S1) // expected-error {{'S1' does not refer to a value}}
97 for (int i = 0; i < 10; ++i) foo();
98 #pragma omp target
99 #pragma omp teams
100 #pragma omp distribute parallel for dist_schedule (static, argv[1]=2) // expected-error {{expression must have integral or unscoped enumeration type, not 'char *'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
101 for (int i = 0; i < 10; ++i) foo();
102 return (tmain<int, 5>(argc) + tmain<char, 1>(argv[0][0])); // expected-note {{in instantiation of function template specialization 'tmain<int, 5>' requested here}} expected-note {{in instantiation of function template specialization 'tmain<char, 1>' requested here}}
103 }
104