libgomp/testsuite/libgomp.c-c++-common/depend-2.c

   1 #include <omp.h>
   2 #include <stdlib.h>
   3 #include <unistd.h>
   4
   5 void
   6 test (int ifval)
   7 {
   8   int a[8], b[8], i;
   9   omp_depend_t d1, d2;
  10   #pragma omp depobj (d1) depend(inout: omp_all_memory)
  11   #pragma omp depobj (d2) depend(out: omp_all_memory)
  12   for (i = 0; i < 8; i++)
  13     {
  14       a[i] = i;
  15       b[i] = 2 * i;
  16     }
  17   #pragma omp parallel
  18   #pragma omp single
  19   {
  20     #pragma omp task shared(a) depend(in: a[0])
  21     {
  22       usleep (5000);
  23       a[0] = 42;
  24     }
  25     #pragma omp task shared(a) depend(out: a[1])
  26     {
  27       usleep (5000);
  28       a[1] = 43;
  29     }
  30     #pragma omp task shared(a) depend(inout: a[2])
  31     {
  32       usleep (5000);
  33       a[2] = 44;
  34     }
  35     #pragma omp task shared(a) depend(mutexinoutset: a[3])
  36     {
  37       usleep (5000);
  38       a[3] = 45;
  39     }
  40     #pragma omp task shared(a)
  41     {
  42       usleep (15000);
  43       a[4] = 46;
  44     }
  45     #pragma omp task shared(b) depend(in: b[0])
  46     {
  47       usleep (5000);
  48       b[0] = 47;
  49     }
  50     #pragma omp task shared(b) depend(in: b[4])
  51     {
  52       usleep (5000);
  53       b[4] = 48;
  54     }
  55     #pragma omp task shared(b) depend(inoutset: b[5])
  56     {
  57       usleep (5000);
  58       b[5] = 49;
  59     }
  60     /* None of the above tasks depend on each other.
  61        The following task depends on all but the a[4] = 46; one.  */
  62     #pragma omp task shared(a, b) depend(depobj: d1) private(i) if(ifval)
  63     {
  64       if (a[0] != 42 || a[1] != 43 || a[2] != 44 || a[3] != 45
  65           || a[5] != 5 || a[6] != 6 || a[7] != 7
  66           || b[0] != 47 || b[1] != 2 || b[2] != 4 || b[3] != 6
  67           || b[4] != 48 || b[5] != 49 || b[6] != 12 || b[7] != 14)
  68         abort ();
  69       for (i = 0; i < 8; ++i)
  70         if (i != 4)
  71           a[i] = 3 * i + 7;
  72       for (i = 0; i < 8; ++i)
  73         b[i] = 4 * i - 7;
  74     }
  75     /* The following task depends on both b[0] = 47; and
  76        above omp_all_memory tasks, but as the latter depends on
  77        the former, effectively it is dependent just on the omp_all_memory
  78        task.  */
  79     #pragma omp task shared(b) depend(inout: b[0])
  80     {
  81       usleep (5000);
  82       b[0] = 49;
  83     }
  84     /* The following task depends on all the above except a[4] = 46; one,
  85        but it can be reduced to dependency on the above omp_all_memory
  86        one and b[0] = 49; one.  */
  87     #pragma omp task shared(a, b) depend(inout: b[6]) depend(depobj: d2) \
  88                      depend(out: b[7]) private(i) if(ifval)
  89     {
  90       for (i = 0; i < 8; ++i)
  91         if (i != 4)
  92           {
  93             if (a[i] != 3 * i + 7)
  94               abort ();
  95             a[i] = 5 * i + 50;
  96           }
  97       if (b[0] != 49)
  98         abort ();
  99       b[0] = 6 * i + 57;
 100       for (i = 1; i < 8; ++i)
 101         {
 102           if (b[i] != 4 * i - 7)
 103             abort ();
 104           b[i] = 6 * i + 57;
 105         }
 106     }
 107     #pragma omp taskwait
 108     if (a[4] != 46)
 109       abort ();
 110   }
 111   #pragma omp depobj (d2) destroy
 112   #pragma omp depobj (d1) destroy
 113 }
 114
 115 int
 116 main ()
 117 {
 118   test (1);
 119   test (0);
 120   return 0;
 121 }