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

   1 /* { dg-do compile } */
   2
   3 #include <openacc.h>
   4 #include <stdlib.h>
   5
   6 int
   7 main (int argc, char **argv)
   8 {
   9 #define N   2
  10     int a[N], b[N];
  11     int i;
  12
  13     for (i = 0; i < N; i++)
  14     {
  15         a[i] = 3;
  16         b[i] = 0;
  17     }
  18
  19 #pragma acc parallel copyin (a[0:N]) copyout (b[0:N])
  20 {
  21     int ii;
  22
  23     for (ii = 0; ii < N; ii++)
  24     {
  25         const int idx = ii;
  26         int n = 1;
  27         const int len = n;
  28
  29 #pragma acc cache /* { dg-error "error: expected '\\(' before end of line" } */
  30
  31 #pragma acc cache (a) /* { dg-error "error: expected '\\\[' before '\\)' token" } */
  32
  33 #pragma acc cache (a[0:N]) copyin (a[0:N]) /* { dg-error "error: expected end of line before 'copyin'" } */
  34
  35 #pragma acc cache () /* { dg-error "error: expected identifier before '\\)' token" } */
  36
  37 #pragma acc cache (a[0:N] b[0:N}) /* { dg-error "error: expected '\\)' before 'b'" } */
  38
  39 #pragma acc cache (a[0:N] /* { dg-error "error: expected '\\)' before end of line" } */
  40
  41 #pragma acc cache (a[ii]) /* { dg-error "error: 'ii' is not a constant" } */
  42
  43 #pragma acc cache (a[idx:n]) /* { dg-error "error: 'n' is not a constant" } */
  44
  45 #pragma acc cache (a[0:N])
  46
  47 #pragma acc cache (a[0:N], b[0:N])
  48
  49 #pragma acc cache (a[0])
  50
  51 #pragma acc cache (a[0], a[1], b[0:N])
  52
  53 #pragma acc cache (a[idx])
  54
  55 #pragma acc cache (a[idx:len])
  56
  57         b[ii] = a[ii];
  58     }
  59 }
  60
  61
  62     for (i = 0; i < N; i++)
  63     {
  64         if (a[i] != b[i])
  65             abort ();
  66     }
  67
  68     return 0;
  69 }