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

   1 #include <assert.h>
   2
   3 /* Test of gang-private aggregate variable declared on loop directive, with
   4    broadcasting to partitioned workers.  */
   5
   6 typedef struct {
   7   int x, y, z;
   8   int attr[13];
   9 } vec3;
  10
  11 int
  12 main (int argc, char* argv[])
  13 {
  14   int i, arr[32 * 32];
  15   vec3 pt;
  16
  17   for (i = 0; i < 32 * 32; i++)
  18     arr[i] = i;
  19
  20   #pragma acc kernels copy(arr)
  21   {
  22     #pragma acc loop gang private(pt)
  23     for (i = 0; i < 32; i++)
  24       {
  25         pt.x = i;
  26         pt.y = i * 2;
  27         pt.z = i * 4;
  28         pt.attr[5] = i * 6;
  29
  30         #pragma acc loop worker
  31         for (int j = 0; j < 32; j++)
  32           arr[i * 32 + j] += pt.x + pt.y + pt.z + pt.attr[5];
  33       }
  34   }
  35
  36   for (i = 0; i < 32 * 32; i++)
  37     assert (arr[i] == i + (i / 32) * 13);
  38
  39   return 0;
  40 }