libgomp/testsuite/libgomp.c-c++-common/task-reduction-5.c

   1 typedef __SIZE_TYPE__ size_t;
   2 extern
   3 #ifdef __cplusplus
   4 "C"
   5 #endif
   6 void abort (void);
   7
   8 int *q;
   9
  10 void
  11 bar (int *p, int *r, int *t, int s, size_t u)
  12 {
  13   #pragma omp task in_reduction (*: p[0], q[0], r[s - 1], t[0:u + 1])
  14   {
  15     *p *= 4;
  16     *q *= 5;
  17     r[s - 1] *= 6;
  18     t[0] *= 8;
  19     t[1] *= 9;
  20   }
  21 }
  22
  23 void
  24 foo (int *p, int *r, int *t, int s, size_t u)
  25 {
  26   int *p2 = p;
  27   #pragma omp taskgroup task_reduction (*: p[0], q[0], r[s], t[0:u + 1])
  28   {
  29     p = (int *) 0;
  30     s++;
  31     bar (p2, r, t, s, u);
  32     r++;
  33     #pragma omp taskwait
  34     #pragma omp task in_reduction (*: p2[0], q[0], r[s - 2], t[0:u + 1])
  35     {
  36       *p2 *= 2;
  37       *q *= 3;
  38       r[s - 2] *= 7;
  39       t[0] *= 10;
  40       t[1] *= 11;
  41     }
  42     u = (~(size_t) 0) / 4;
  43     s++;
  44     p2 = (int *) 0;
  45     q = (int *) 0;
  46     r = (int *) 0;
  47     t = (int *) 0;
  48   }
  49 }
  50
  51 int
  52 main ()
  53 {
  54   int a = 1, b = 1, c[2] = { 1, 0 }, d[3] = { 1, 1, -1 };
  55   volatile int zero;
  56   zero = 0;
  57   q = &b;
  58   #pragma omp parallel num_threads (2)
  59   #pragma omp master
  60   foo (&a, &c[0], &d[0], zero, zero + 1);
  61   if (a != 8 || b != 15 || c[0] != 42 || c[1] != 0
  62       || d[0] != 80 || d[1] != 99 || d[2] != -1)
  63     abort ();
  64   return 0;
  65 }