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

   1 int
   2 main (int argc, char **argv)
   3 {
   4 #define N   2
   5     int a[N], b[N];
   6     int i;
   7
   8     for (i = 0; i < N; i++)
   9     {
  10         a[i] = 3;
  11         b[i] = 0;
  12     }
  13
  14 #pragma acc parallel copyin (a[0:N]) copyout (b[0:N])
  15 {
  16     int ii;
  17
  18     for (ii = 0; ii < N; ii++)
  19     {
  20         const int idx = ii;
  21         int n = 1;
  22         const int len = n;
  23
  24 #pragma acc cache (a[0:N])
  25
  26 #pragma acc cache (a[0:N], b[0:N])
  27
  28 #pragma acc cache (a[0])
  29
  30 #pragma acc cache (a[0], a[1], b[0:N])
  31
  32 #pragma acc cache (a[idx])
  33
  34 #pragma acc cache (a[idx:len])
  35
  36         b[ii] = a[ii];
  37     }
  38 }
  39
  40
  41     for (i = 0; i < N; i++)
  42     {
  43         if (a[i] != b[i])
  44             __builtin_abort ();
  45     }
  46
  47     return 0;
  48 }