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

   1 extern
   2 #ifdef __cplusplus
   3 "C"
   4 #endif
   5 void abort (void);
   6 int a, b[3] = { 1, 1, 1 };
   7 unsigned long int c[2] = { ~0UL, ~0UL };
   8
   9 void
  10 bar (int i)
  11 {
  12   #pragma omp task in_reduction (*: b[:3]) in_reduction (&: c[1:]) \
  13               in_reduction (+: a)
  14   {
  15     a += 4;
  16     b[1] *= 4;
  17     c[1] &= ~(1UL << (i + 16));
  18   }
  19 }
  20
  21 void
  22 foo (int x)
  23 {
  24   #pragma omp scope reduction (task, +: a)
  25   {
  26     #pragma omp scope reduction (task, *: b)
  27     {
  28       #pragma omp scope reduction (task, &: c[1:1])
  29       {
  30         #pragma omp barrier
  31         #pragma omp sections
  32         {
  33           {
  34             a++; b[0] *= 2; bar (2); b[2] *= 3; c[1] &= ~(1UL << 2);
  35           }
  36         #pragma omp section
  37         { b[0] *= 2; bar (4); b[2] *= 3; c[1] &= ~(1UL << 4); a++; }
  38         #pragma omp section
  39         { bar (6); b[2] *= 3; c[1] &= ~(1UL << 6); a++; b[0] *= 2; }
  40         #pragma omp section
  41         { b[2] *= 3; c[1] &= ~(1UL << 8); a++; b[0] *= 2; bar (8); }
  42         #pragma omp section
  43         { c[1] &= ~(1UL << 10); a++; b[0] *= 2; bar (10); b[2] *= 3; }
  44         #pragma omp section
  45         { a++; b[0] *= 2; b[2] *= 3; c[1] &= ~(1UL << 12); bar (12); }
  46         #pragma omp section
  47         if (x)
  48           {
  49             a++; b[0] *= 2; b[2] *= 3; bar (14); c[1] &= ~(1UL << 14);
  50           }
  51         }
  52       }
  53     }
  54   }
  55 }
  56
  57 int
  58 main ()
  59 {
  60   volatile int one = 1;
  61   foo (!one);
  62   if (a != 30 || b[0] != 64 || b[1] != (1 << 12) || b[2] != 3 * 3 * 3 * 3 * 3 * 3
  63       || c[0] != ~0UL || c[1] != ~0x15541554UL)
  64     abort ();
  65   a = 0;
  66   b[0] = 1;
  67   b[1] = 1;
  68   b[2] = 1;
  69   c[1] = ~0UL;
  70   #pragma omp parallel
  71   foo (one);
  72   if (a != 35 || b[0] != 128 || b[1] != (1 << 14) || b[2] != 3 * 3 * 3 * 3 * 3 * 3 * 3
  73       || c[0] != ~0UL || c[1] != ~0x55545554UL)
  74     abort ();
  75   return 0;
  76 }