libgomp/testsuite/libgomp.oacc-c-c++-common/lib-13.c

   1 /* Check acc_is_present and acc_delete.  */
   2
   3 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
   4
   5 #include <stdlib.h>
   6 #include <openacc.h>
   7
   8 #include <stdio.h>
   9
  10 int
  11 main (int argc, char **argv)
  12 {
  13   const int N = 256;
  14   int i;
  15   unsigned char *h;
  16   void *d;
  17
  18   h = (unsigned char *) malloc (N);
  19
  20   for (i = 0; i < N; i++)
  21     {
  22       h[i] = i;
  23     }
  24
  25   d = acc_copyin (h, N);
  26
  27   if (acc_is_present (h, 1) != 1)
  28     abort ();
  29
  30   if (acc_is_present (h, N + 1) != 0)
  31     abort ();
  32
  33   if (acc_is_present (h + 1, N) != 0)
  34     abort ();
  35
  36   if (acc_is_present (h - 1, N) != 0)
  37     abort ();
  38
  39   if (acc_is_present (h - 1, N - 1) != 0)
  40     abort ();
  41
  42   if (acc_is_present (h + N, 0) != 0)
  43     abort ();
  44
  45   if (acc_is_present (h + N, N) != 0)
  46     abort ();
  47
  48   if (acc_is_present (0, N) != 0)
  49     abort ();
  50
  51   if (acc_is_present (h, 0) != 0)
  52     abort ();
  53
  54   acc_delete (h, N);
  55
  56   if (acc_is_present (h, 1) != 0)
  57     abort ();
  58
  59   free (h);
  60
  61   return 0;
  62 }