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

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