libgomp/testsuite/libgomp.oacc-c-c++-common/default-1.c

   1 /* { dg-do run } */
   2
   3 #include  <openacc.h>
   4
   5 int test_parallel ()
   6 {
   7   int ok = 1;
   8   int val = 2;
   9   int ary[32];
  10   int ondev = 0;
  11
  12   for (int i = 0; i < 32; i++)
  13     ary[i] = ~0;
  14
  15   /* val defaults to firstprivate, ary defaults to copy.  */
  16 #pragma acc parallel num_gangs (32) copy (ok) copy(ondev)
  17   {
  18     ondev = acc_on_device (acc_device_not_host);
  19 #pragma acc loop gang(static:1)
  20     for (unsigned i = 0; i < 32; i++)
  21       {
  22         if (val != 2)
  23           ok = 0;
  24         val += i;
  25         ary[i] = val;
  26       }
  27   }
  28
  29   if (ondev)
  30     {
  31       if (!ok)
  32         return 1;
  33       if (val != 2)
  34         return 1;
  35
  36       for (int i = 0; i < 32; i++)
  37         if (ary[i] != 2 + i)
  38           return 1;
  39     }
  40
  41   return 0;
  42 }
  43
  44 int test_kernels ()
  45 {
  46   int val = 2;
  47   int ary[32];
  48   int ondev = 0;
  49
  50   for (int i = 0; i < 32; i++)
  51     ary[i] = ~0;
  52
  53   /* val defaults to copy, ary defaults to copy.  */
  54 #pragma acc kernels copy(ondev)
  55   {
  56     ondev = acc_on_device (acc_device_not_host);
  57 #pragma acc loop
  58     for (unsigned i = 0; i < 32; i++)
  59       {
  60         ary[i] = val;
  61         val++;
  62       }
  63   }
  64
  65   if (ondev)
  66     {
  67       if (val != 2 + 32)
  68         return 1;
  69
  70       for (int i = 0; i < 32; i++)
  71         if (ary[i] != 2 + i)
  72           return 1;
  73     }
  74
  75   return 0;
  76 }
  77
  78 int main ()
  79 {
  80   if (test_parallel ())
  81     return 1;
  82
  83   if (test_kernels ())
  84     return 1;
  85
  86   return 0;
  87 }