1 // RUN: %clang_cc1 -verify=expected,omp45 -fopenmp -fopenmp-version=45 -ferror-limit 100 %s -Wuninitialized
2 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp -ferror-limit 100 %s -Wuninitialized
3
4 // RUN: %clang_cc1 -verify=expected,omp45 -fopenmp-simd -fopenmp-version=45 -ferror-limit 100 %s -Wuninitialized
5 // RUN: %clang_cc1 -verify=expected,omp50 -fopenmp-simd -ferror-limit 100 %s -Wuninitialized
6
7 struct S1 { // expected-note 2 {{declared here}}
8 int a;
9 };
10
11 template <class T>
tmain(T argc)12 T tmain(T argc) {
13 #pragma omp flush allocate(argc) // expected-error {{unexpected OpenMP clause 'allocate' in directive '#pragma omp flush'}}
14 ;
15 #pragma omp flush untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp flush'}}
16 #pragma omp flush unknown // expected-warning {{extra tokens at the end of '#pragma omp flush' are ignored}}
17 if (argc)
18 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
19 if (argc) {
20 #pragma omp flush
21 }
22 while (argc)
23 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
24 while (argc) {
25 #pragma omp flush
26 }
27 do
28 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
29 while (argc)
30 ;
31 do {
32 #pragma omp flush
33 } while (argc);
34 switch (argc)
35 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
36 switch (argc)
37 case 1:
38 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
39 switch (argc)
40 case 1: {
41 #pragma omp flush
42 }
43 switch (argc) {
44 #pragma omp flush
45 case 1:
46 #pragma omp flush
47 break;
48 default: {
49 #pragma omp flush
50 } break;
51 }
52 for (;;)
53 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
54 for (;;) {
55 #pragma omp flush
56 }
57 label:
58 #pragma omp flush
59 label1 : {
60 #pragma omp flush
61 }
62
63 #pragma omp flush
64 #pragma omp flush( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
65 #pragma omp flush() // expected-error {{expected expression}}
66 #pragma omp flush(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
67 #pragma omp flush(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
68 #pragma omp flush(argc)
69 #pragma omp flush(S1) // expected-error {{'S1' does not refer to a value}}
70 #pragma omp flush(argc) flush(argc) // expected-warning {{extra tokens at the end of '#pragma omp flush' are ignored}}
71 #pragma omp parallel flush(argc) // expected-warning {{extra tokens at the end of '#pragma omp parallel' are ignored}}
72 ;
73 return T();
74 }
75
main(int argc,char ** argv)76 int main(int argc, char **argv) {
77 #pragma omp flush
78 ;
79 #pragma omp flush untied // expected-error {{unexpected OpenMP clause 'untied' in directive '#pragma omp flush'}}
80 #pragma omp flush unknown // expected-warning {{extra tokens at the end of '#pragma omp flush' are ignored}}
81 if (argc)
82 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
83 if (argc) {
84 #pragma omp flush
85 }
86 while (argc)
87 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
88 while (argc) {
89 #pragma omp flush
90 }
91 do
92 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
93 while (argc)
94 ;
95 do {
96 #pragma omp flush
97 } while (argc);
98 switch (argc)
99 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
100 switch (argc)
101 case 1:
102 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
103 switch (argc)
104 case 1: {
105 #pragma omp flush
106 }
107 switch (argc) {
108 #pragma omp flush
109 case 1:
110 #pragma omp flush
111 break;
112 default: {
113 #pragma omp flush
114 } break;
115 }
116 for (;;)
117 #pragma omp flush // expected-error {{'#pragma omp flush' cannot be an immediate substatement}}
118 for (;;) {
119 #pragma omp flush
120 }
121 label:
122 #pragma omp flush
123 label1 : {
124 #pragma omp flush
125 }
126
127 #pragma omp flush
128 #pragma omp flush( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
129 #pragma omp flush() // expected-error {{expected expression}}
130 #pragma omp flush(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
131 #pragma omp flush(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
132 #pragma omp flush(argc)
133 #pragma omp flush(S1) // expected-error {{'S1' does not refer to a value}}
134 #pragma omp flush(argc) flush(argc) // expected-warning {{extra tokens at the end of '#pragma omp flush' are ignored}}
135 #pragma omp parallel flush(argc) // expected-warning {{extra tokens at the end of '#pragma omp parallel' are ignored}}
136 ;
137 #pragma omp flush seq_cst // expected-error {{unexpected OpenMP clause 'seq_cst' in directive '#pragma omp flush'}}
138 #pragma omp flush acq_rel // omp45-error {{unexpected OpenMP clause 'acq_rel' in directive '#pragma omp flush'}}
139 #pragma omp flush acquire // omp45-error {{unexpected OpenMP clause 'acquire' in directive '#pragma omp flush'}}
140 #pragma omp flush release // omp45-error {{unexpected OpenMP clause 'release' in directive '#pragma omp flush'}}
141 #pragma omp flush relaxed // expected-error {{unexpected OpenMP clause 'relaxed' in directive '#pragma omp flush'}}
142 #pragma omp flush seq_cst // expected-error {{unexpected OpenMP clause 'seq_cst' in directive '#pragma omp flush'}}
143 #pragma omp flush acq_rel acquire // omp45-error {{unexpected OpenMP clause 'acq_rel' in directive '#pragma omp flush'}} omp45-error {{unexpected OpenMP clause 'acquire' in directive '#pragma omp flush'}} omp50-error {{directive '#pragma omp flush' cannot contain more than one 'acq_rel', 'acquire' or 'release' clause}} omp50-note {{'acq_rel' clause used here}}
144 #pragma omp flush release acquire // omp45-error {{unexpected OpenMP clause 'release' in directive '#pragma omp flush'}} omp45-error {{unexpected OpenMP clause 'acquire' in directive '#pragma omp flush'}} omp50-error {{directive '#pragma omp flush' cannot contain more than one 'acq_rel', 'acquire' or 'release' clause}} omp50-note {{'release' clause used here}}
145 #pragma omp flush acq_rel (argc) // omp45-error {{unexpected OpenMP clause 'acq_rel' in directive '#pragma omp flush'}} expected-warning {{extra tokens at the end of '#pragma omp flush' are ignored}}
146 #pragma omp flush(argc) acq_rel // omp45-error {{unexpected OpenMP clause 'acq_rel' in directive '#pragma omp flush'}} omp50-error {{'flush' directive with memory order clause 'acq_rel' cannot have the list}} omp50-note {{memory order clause 'acq_rel' is specified here}}
147 return tmain(argc);
148 }
149