libgomp/testsuite/libgomp.c/nonmonotonic-1.c

   1 /* { dg-do run } */
   2
   3 #ifndef NONMONOTONIC_TYPE
   4 #include <omp.h>
   5 #include <stdlib.h>
   6 #define NONMONOTONIC_TYPE int
   7 #define NONMONOTONIC_END(n) n
   8 #endif
   9
  10 int a[73];
  11
  12 int
  13 main ()
  14 {
  15   NONMONOTONIC_TYPE i;
  16   #pragma omp parallel for schedule(nonmonotonic: dynamic)
  17   for (i = 0; i < NONMONOTONIC_END (73); i++)
  18     a[i]++;
  19   #pragma omp parallel for schedule(nonmonotonic: dynamic, 5)
  20   for (i = 0; i < NONMONOTONIC_END (73); i++)
  21     a[i]++;
  22   #pragma omp parallel for schedule(nonmonotonic: guided)
  23   for (i = 0; i < NONMONOTONIC_END (73); i++)
  24     a[i]++;
  25   #pragma omp parallel for schedule(nonmonotonic: guided, 7)
  26   for (i = 0; i < NONMONOTONIC_END (73); i++)
  27     a[i]++;
  28   #pragma omp parallel
  29   {
  30     int cnt = omp_get_num_threads ();
  31     int thr = omp_get_thread_num ();
  32     if (thr < 73)
  33       a[thr]++;
  34     #pragma omp barrier
  35     #pragma omp for schedule(nonmonotonic: dynamic)
  36     for (i = 0; i < NONMONOTONIC_END (73); i++)
  37       a[i]++;
  38     #pragma omp for schedule(nonmonotonic: dynamic, 7)
  39     for (i = 0; i < NONMONOTONIC_END (73); i++)
  40       a[i]++;
  41     #pragma omp for schedule(nonmonotonic: guided)
  42     for (i = 0; i < NONMONOTONIC_END (73); i++)
  43       a[i]++;
  44     #pragma omp for schedule(nonmonotonic: guided, 5)
  45     for (i = 0; i < NONMONOTONIC_END (73); i++)
  46       a[i]++;
  47     #pragma omp single private (i)
  48     for (i = 0; i < 73; i++)
  49       if (a[i] != 8 + (i < cnt))
  50         abort ();
  51   }
  52   return 0;
  53 }