libgomp/testsuite/libgomp.oacc-c-c++-common/reduction-6.c

   1 /* { dg-do run } */
   2 /* { dg-additional-options "-w" } */
   3
   4 /* Test reductions on explicitly private variables.  */
   5
   6 #include <assert.h>
   7
   8 int
   9 main ()
  10 {
  11   int i, j, red[10];
  12   int v;
  13
  14   for (i = 0; i < 10; i++)
  15     red[i] = -1;
  16
  17 #pragma acc parallel copyout(red)
  18   {
  19 #pragma acc loop gang private(v)
  20     for (j = 0; j < 10; j++)
  21       {
  22         v = j;
  23
  24 #pragma acc loop vector reduction (+:v)
  25         for (i = 0; i < 100; i++)
  26           v++;
  27
  28         red[j] = v;
  29       }
  30   }
  31
  32   for (i = 0; i < 10; i++)
  33     assert (red[i] == i + 100);
  34
  35   return 0;
  36 }