libgomp/testsuite/libgomp.c/pr29947-2.c

   1 /* PR libgomp/29947 */
   2 /* { dg-options "-O2 -fopenmp" } */
   3 /* { dg-do run } */
   4
   5 extern void abort (void);
   6
   7 int cnt;
   8
   9 void
  10 test1 (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 (static)
  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
  29 void
  30 test2 (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 (static)
  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
  49 void
  50 test3 (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 (static, 1)
  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
  69 void
  70 test4 (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 (static, 1)
  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
  89 void
  90 test5 (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 (static) 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
 110 void
 111 test6 (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 (static) 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
 131 void
 132 test7 (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 (static, 1) 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
 152 void
 153 test8 (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 (static, 1) 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
 173 void
 174 test9 (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 (static)
 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
 188 void
 189 test10 (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 (static)
 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
 203 void
 204 test11 (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 (static, 1)
 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
 218 void
 219 test12 (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 (static, 1)
 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
 233 void
 234 test13 (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 (static) 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
 249 void
 250 test14 (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 (static) 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
 265 void
 266 test15 (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 (static, 1) 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
 281 void
 282 test16 (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 (static, 1) 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
 297 int
 298 __attribute__((noinline))
 299 test (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
 320 int
 321 main (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 }