libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-private-vars-loop-gang-1.c

   1 #include <assert.h>
   2
   3 /* Test of gang-private variables declared on loop directive.  */
   4
   5 int
   6 main (int argc, char* argv[])
   7 {
   8   int x = 5, i, arr[32];
   9
  10   for (i = 0; i < 32; i++)
  11     arr[i] = i;
  12
  13   #pragma acc kernels copy(arr)
  14   {
  15     #pragma acc loop gang(num:32) private(x)
  16     for (i = 0; i < 32; i++)
  17       {
  18         x = i * 2;
  19         arr[i] += x;
  20       }
  21   }
  22
  23   for (i = 0; i < 32; i++)
  24     assert (arr[i] == i * 3);
  25
  26   return 0;
  27 }