1/* PR libgomp/29947 */ 2 3/* { dg-do run } */ 4 5extern void abort (void); 6 7int cnt; 8 9void 10test1 (long j1, long k1, long j2, long k2) 11{ 12 long i, e = 0, c = 0; 13#pragma omp parallel reduction (+:e,c) 14 { 15#pragma omp for schedule (dynamic) 16 for (i = j1; i <= k1; ++i) 17 { 18 if (i < j2 || i > k2) 19 ++e; 20 ++c; 21 } 22#pragma omp atomic 23 ++cnt; 24 } 25 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 26 abort (); 27} 28 29void 30test2 (long j1, long k1, long j2, long k2) 31{ 32 long i, e = 0, c = 0; 33#pragma omp parallel reduction (+:e,c) 34 { 35#pragma omp for schedule (dynamic) 36 for (i = k1; i >= j1; --i) 37 { 38 if (i < j2 || i > k2) 39 ++e; 40 ++c; 41 } 42#pragma omp atomic 43 ++cnt; 44 } 45 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 46 abort (); 47} 48 49void 50test3 (long j1, long k1, long j2, long k2) 51{ 52 long i, e = 0, c = 0; 53#pragma omp parallel reduction (+:e,c) 54 { 55#pragma omp for schedule (guided) 56 for (i = j1; i <= k1; ++i) 57 { 58 if (i < j2 || i > k2) 59 ++e; 60 ++c; 61 } 62#pragma omp atomic 63 ++cnt; 64 } 65 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 66 abort (); 67} 68 69void 70test4 (long j1, long k1, long j2, long k2) 71{ 72 long i, e = 0, c = 0; 73#pragma omp parallel reduction (+:e,c) 74 { 75#pragma omp for schedule (guided) 76 for (i = k1; i >= j1; --i) 77 { 78 if (i < j2 || i > k2) 79 ++e; 80 ++c; 81 } 82#pragma omp atomic 83 ++cnt; 84 } 85 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 86 abort (); 87} 88 89void 90test5 (long j1, long k1, long j2, long k2) 91{ 92 long i, e = 0, c = 0; 93#pragma omp parallel reduction (+:e,c) 94 { 95#pragma omp for schedule (dynamic) ordered 96 for (i = j1; i <= k1; ++i) 97 { 98 if (i < j2 || i > k2) 99 ++e; 100#pragma omp ordered 101 ++c; 102 } 103#pragma omp atomic 104 ++cnt; 105 } 106 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 107 abort (); 108} 109 110void 111test6 (long j1, long k1, long j2, long k2) 112{ 113 long i, e = 0, c = 0; 114#pragma omp parallel reduction (+:e,c) 115 { 116#pragma omp for schedule (dynamic) ordered 117 for (i = k1; i >= j1; --i) 118 { 119 if (i < j2 || i > k2) 120 ++e; 121#pragma omp ordered 122 ++c; 123 } 124#pragma omp atomic 125 ++cnt; 126 } 127 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 128 abort (); 129} 130 131void 132test7 (long j1, long k1, long j2, long k2) 133{ 134 long i, e = 0, c = 0; 135#pragma omp parallel reduction (+:e,c) 136 { 137#pragma omp for schedule (guided) ordered 138 for (i = j1; i <= k1; ++i) 139 { 140 if (i < j2 || i > k2) 141 ++e; 142#pragma omp ordered 143 ++c; 144 } 145#pragma omp atomic 146 ++cnt; 147 } 148 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 149 abort (); 150} 151 152void 153test8 (long j1, long k1, long j2, long k2) 154{ 155 long i, e = 0, c = 0; 156#pragma omp parallel reduction (+:e,c) 157 { 158#pragma omp for schedule (guided) ordered 159 for (i = k1; i >= j1; --i) 160 { 161 if (i < j2 || i > k2) 162 ++e; 163#pragma omp ordered 164 ++c; 165 } 166#pragma omp atomic 167 ++cnt; 168 } 169 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 170 abort (); 171} 172 173void 174test9 (long j1, long k1, long j2, long k2) 175{ 176 long i, e = 0, c = 0; 177#pragma omp parallel for reduction (+:e,c) schedule (dynamic) 178 for (i = j1; i <= k1; ++i) 179 { 180 if (i < j2 || i > k2) 181 ++e; 182 ++c; 183 } 184 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 185 abort (); 186} 187 188void 189test10 (long j1, long k1, long j2, long k2) 190{ 191 long i, e = 0, c = 0; 192#pragma omp parallel for reduction (+:e,c) schedule (dynamic) 193 for (i = k1; i >= j1; --i) 194 { 195 if (i < j2 || i > k2) 196 ++e; 197 ++c; 198 } 199 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 200 abort (); 201} 202 203void 204test11 (long j1, long k1, long j2, long k2) 205{ 206 long i, e = 0, c = 0; 207#pragma omp parallel for reduction (+:e,c) schedule (guided) 208 for (i = j1; i <= k1; ++i) 209 { 210 if (i < j2 || i > k2) 211 ++e; 212 ++c; 213 } 214 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 215 abort (); 216} 217 218void 219test12 (long j1, long k1, long j2, long k2) 220{ 221 long i, e = 0, c = 0; 222#pragma omp parallel for reduction (+:e,c) schedule (guided) 223 for (i = k1; i >= j1; --i) 224 { 225 if (i < j2 || i > k2) 226 ++e; 227 ++c; 228 } 229 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 230 abort (); 231} 232 233void 234test13 (long j1, long k1, long j2, long k2) 235{ 236 long i, e = 0, c = 0; 237#pragma omp parallel for reduction (+:e,c) schedule (dynamic) ordered 238 for (i = j1; i <= k1; ++i) 239 { 240 if (i < j2 || i > k2) 241 ++e; 242#pragma omp ordered 243 ++c; 244 } 245 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 246 abort (); 247} 248 249void 250test14 (long j1, long k1, long j2, long k2) 251{ 252 long i, e = 0, c = 0; 253#pragma omp parallel for reduction (+:e,c) schedule (dynamic) ordered 254 for (i = k1; i >= j1; --i) 255 { 256 if (i < j2 || i > k2) 257 ++e; 258#pragma omp ordered 259 ++c; 260 } 261 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 262 abort (); 263} 264 265void 266test15 (long j1, long k1, long j2, long k2) 267{ 268 long i, e = 0, c = 0; 269#pragma omp parallel for reduction (+:e,c) schedule (guided) ordered 270 for (i = j1; i <= k1; ++i) 271 { 272 if (i < j2 || i > k2) 273 ++e; 274#pragma omp ordered 275 ++c; 276 } 277 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 278 abort (); 279} 280 281void 282test16 (long j1, long k1, long j2, long k2) 283{ 284 long i, e = 0, c = 0; 285#pragma omp parallel for reduction (+:e,c) schedule (guided) ordered 286 for (i = k1; i >= j1; --i) 287 { 288 if (i < j2 || i > k2) 289 ++e; 290#pragma omp ordered 291 ++c; 292 } 293 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1)) 294 abort (); 295} 296 297int 298__attribute__((noinline)) 299test (long j1, long k1, long j2, long k2) 300{ 301 test1 (j1, k1, j2, k2); 302 test2 (j1, k1, j2, k2); 303 test3 (j1, k1, j2, k2); 304 test4 (j1, k1, j2, k2); 305 test5 (j1, k1, j2, k2); 306 test6 (j1, k1, j2, k2); 307 test7 (j1, k1, j2, k2); 308 test8 (j1, k1, j2, k2); 309 test9 (j1, k1, j2, k2); 310 test10 (j1, k1, j2, k2); 311 test11 (j1, k1, j2, k2); 312 test12 (j1, k1, j2, k2); 313 test13 (j1, k1, j2, k2); 314 test14 (j1, k1, j2, k2); 315 test15 (j1, k1, j2, k2); 316 test16 (j1, k1, j2, k2); 317 return cnt; 318} 319 320int 321main (void) 322{ 323 test (1, 5, 1, 5); 324 test (5, 5, 5, 5); 325 test (5, 4, 5, 4); 326 test (5, 1, 5, 1); 327 return 0; 328} 329