libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-reduction-1.c

   1 /* Verify that a simple, explicit acc loop reduction works inside
   2  a kernels region.  */
   3
   4 #include <stdlib.h>
   5
   6 #define N 100
   7
   8 int
   9 main ()
  10 {
  11   int i, red = 0;
  12
  13 #pragma acc kernels
  14   {
  15 #pragma acc loop reduction (+:red)
  16   for (i = 0; i < N; i++)
  17     red++;
  18   }
  19
  20   if (red != N)
  21     abort ();
  22
  23   return 0;
  24 }