libgomp/testsuite/libgomp.oacc-c-c++-common/loop-red-v-2.c

   1 #include <stdio.h>
   2 #include <openacc.h>
   3 #include <gomp-constants.h>
   4
   5 #define N (32*32*32+17)
   6
   7 int main ()
   8 {
   9   int ix;
  10   int ondev = 0;
  11   int q = 0,  h = 0;
  12
  13 #pragma acc parallel vector_length(32) copy(q) copy(ondev)
  14   {
  15     int t = q;
  16
  17 #pragma acc loop vector reduction (+:t)
  18     for (unsigned ix = 0; ix < N; ix++)
  19       {
  20         int val = ix;
  21
  22         if (acc_on_device (acc_device_not_host))
  23           {
  24             int g, w, v;
  25
  26             g = __builtin_goacc_parlevel_id (GOMP_DIM_GANG);
  27             w = __builtin_goacc_parlevel_id (GOMP_DIM_WORKER);
  28             v = __builtin_goacc_parlevel_id (GOMP_DIM_VECTOR);
  29             val = (g << 16) | (w << 8) | v;
  30             ondev = 1;
  31           }
  32         t += val;
  33       }
  34     q = t;
  35   }
  36
  37   for (ix = 0; ix < N; ix++)
  38     {
  39       int val = ix;
  40       if (ondev)
  41         {
  42           int g = 0;
  43           int w = 0;
  44           int v = ix % 32;
  45
  46           val = (g << 16) | (w << 8) | v;
  47         }
  48       h += val;
  49     }
  50
  51   if (q != h)
  52     {
  53       printf ("t=%x expected %x\n", q, h);
  54       return 1;
  55     }
  56
  57   return 0;
  58 }