1 void foo (void);
2 int v;
3 #ifdef __cplusplus
4 extern "C" {
5 #endif
6 int omp_get_thread_num (void);
7 int omp_get_num_threads (void);
8 int omp_target_is_present (const void *, int);
9 int omp_get_cancellation (void);
10 #ifdef __cplusplus
11 }
12 #endif
13
14 void
15 f1 (int *a)
16 {
17 int i;
18 #pragma omp simd order(concurrent)
19 for (i = 0; i < 64; i++)
20 {
21 #pragma omp parallel /* { dg-error "OpenMP constructs other than 'ordered simd', 'simd', 'loop' or 'atomic' may not be nested inside 'simd' region" } */
22 foo ();
23 }
24 #pragma omp simd order(concurrent)
25 for (i = 0; i < 64; i++)
26 {
27 int j;
28 #pragma omp simd
29 for (j = 0; j < 64; j++)
30 a[64 * i + j] = i + j;
31 }
32 #pragma omp simd order(concurrent)
33 for (i = 0; i < 64; i++)
34 {
35 #pragma omp critical /* { dg-error "OpenMP constructs other than 'ordered simd', 'simd', 'loop' or 'atomic' may not be nested inside 'simd' region" } */
36 foo ();
37 }
38 #pragma omp simd order(concurrent)
39 for (i = 0; i < 64; i++)
40 {
41 #pragma omp ordered simd /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
42 foo ();
43 }
44 #pragma omp simd order(concurrent)
45 for (i = 0; i < 64; i++)
46 {
47 #pragma omp atomic /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
48 v++;
49 }
50 #pragma omp simd order(concurrent)
51 for (i = 0; i < 64; i++)
52 {
53 #pragma omp atomic read /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
54 a[i] = v; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
55 }
56 #pragma omp simd order(concurrent)
57 for (i = 0; i < 64; i++)
58 {
59 #pragma omp atomic write /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
60 v = a[i]; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
61 }
62 #pragma omp simd order(concurrent)
63 for (i = 0; i < 64; i++)
64 a[i] += omp_get_thread_num (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_thread_num\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
65 #pragma omp simd order(concurrent)
66 for (i = 0; i < 64; i++)
67 a[i] += omp_get_num_threads (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_num_threads\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
68 #pragma omp simd order(concurrent)
69 for (i = 0; i < 64; i++)
70 a[i] += omp_target_is_present (a + i, 0); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_target_is_present\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
71 #pragma omp simd order(concurrent)
72 for (i = 0; i < 64; i++)
73 a[i] += omp_get_cancellation (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_cancellation\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
74 }
75
76 void
77 f2 (int *a)
78 {
79 int i;
80 #pragma omp for simd order(concurrent)
81 for (i = 0; i < 64; i++)
82 {
83 #pragma omp parallel /* { dg-error "OpenMP constructs other than 'ordered simd', 'simd', 'loop' or 'atomic' may not be nested inside 'simd' region" } */
84 foo ();
85 }
86 #pragma omp for simd order(concurrent)
87 for (i = 0; i < 64; i++)
88 {
89 int j;
90 #pragma omp simd
91 for (j = 0; j < 64; j++)
92 a[64 * i + j] = i + j;
93 }
94 #pragma omp for simd order(concurrent)
95 for (i = 0; i < 64; i++)
96 {
97 #pragma omp critical /* { dg-error "OpenMP constructs other than 'ordered simd', 'simd', 'loop' or 'atomic' may not be nested inside 'simd' region" } */
98 foo ();
99 }
100 #pragma omp for simd order(concurrent)
101 for (i = 0; i < 64; i++)
102 {
103 #pragma omp ordered simd /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
104 foo ();
105 }
106 #pragma omp for simd order(concurrent)
107 for (i = 0; i < 64; i++)
108 {
109 #pragma omp atomic /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
110 v++;
111 }
112 #pragma omp for simd order(concurrent)
113 for (i = 0; i < 64; i++)
114 {
115 #pragma omp atomic read /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
116 a[i] = v; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
117 }
118 #pragma omp for simd order(concurrent)
119 for (i = 0; i < 64; i++)
120 {
121 #pragma omp atomic write /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
122 v = a[i]; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
123 }
124 #pragma omp for simd order(concurrent)
125 for (i = 0; i < 64; i++)
126 a[i] += omp_get_thread_num (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_thread_num\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
127 #pragma omp for simd order(concurrent)
128 for (i = 0; i < 64; i++)
129 a[i] += omp_get_num_threads (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_num_threads\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
130 #pragma omp for simd order(concurrent)
131 for (i = 0; i < 64; i++)
132 a[i] += omp_target_is_present (a + i, 0); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_target_is_present\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
133 #pragma omp for simd order(concurrent)
134 for (i = 0; i < 64; i++)
135 a[i] += omp_get_cancellation (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_cancellation\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
136 }
137
138 void
139 f3 (int *a)
140 {
141 int i;
142 #pragma omp for order(concurrent)
143 for (i = 0; i < 64; i++)
144 {
145 #pragma omp parallel
146 foo ();
147 }
148 #pragma omp for order(concurrent)
149 for (i = 0; i < 64; i++)
150 {
151 int j;
152 #pragma omp simd
153 for (j = 0; j < 64; j++)
154 a[64 * i + j] = i + j;
155 }
156 #pragma omp for order(concurrent)
157 for (i = 0; i < 64; i++)
158 {
159 #pragma omp critical /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
160 foo ();
161 }
162 #pragma omp for order(concurrent)
163 for (i = 0; i < 64; i++)
164 {
165 #pragma omp ordered simd /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
166 foo ();
167 }
168 #pragma omp for order(concurrent)
169 for (i = 0; i < 64; i++)
170 {
171 #pragma omp atomic /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
172 v++;
173 }
174 #pragma omp for order(concurrent)
175 for (i = 0; i < 64; i++)
176 {
177 #pragma omp atomic read /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
178 a[i] = v; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
179 }
180 #pragma omp for order(concurrent)
181 for (i = 0; i < 64; i++)
182 {
183 #pragma omp atomic write /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c++ } } */
184 v = a[i]; /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" "" { target c } } */
185 }
186 #pragma omp for order(concurrent)
187 for (i = 0; i < 64; i++)
188 {
189 #pragma omp task /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
190 a[i]++;
191 }
192 #pragma omp for order(concurrent)
193 for (i = 0; i < 64; i++)
194 {
195 int j;
196 #pragma omp taskloop /* { dg-error "OpenMP constructs other than 'parallel', 'loop' or 'simd' may not be nested inside a region with the 'order\\(concurrent\\)' clause" } */
197 for (j = 0; j < 64; j++)
198 a[64 * i + j] = i + j;
199 }
200 #pragma omp for order(concurrent)
201 for (i = 0; i < 64; i++)
202 a[i] += omp_get_thread_num (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_thread_num\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
203 #pragma omp for order(concurrent)
204 for (i = 0; i < 64; i++)
205 a[i] += omp_get_num_threads (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_num_threads\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
206 #pragma omp for order(concurrent)
207 for (i = 0; i < 64; i++)
208 a[i] += omp_target_is_present (a + i, 0); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_target_is_present\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
209 #pragma omp for order(concurrent)
210 for (i = 0; i < 64; i++)
211 a[i] += omp_get_cancellation (); /* { dg-error "OpenMP runtime API call '\[^\n\r]*omp_get_cancellation\[^\n\r]*' in a region with 'order\\(concurrent\\)' clause" } */
212 }