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

   1 /* { dg-do run } */
   2 /* { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } } */
   3
   4 /* Fortran testcase is at libgomp.oacc-fortran/acc-memcpy.f90.  */
   5
   6 #include <string.h>
   7 #include <stdlib.h>
   8 #include <openacc.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_malloc (N);
  26
  27   acc_memcpy_to_device (d, h, N);
  28
  29   for (i = 0; i < N; i++)
  30     {
  31       if (acc_is_present (h + i, 1) != 0)
  32         abort ();
  33     }
  34
  35   memset (&h[0], 0, N);
  36
  37   acc_memcpy_from_device (h, d, N);
  38
  39   for (i = 0; i < N; i++)
  40     {
  41       if (h[i] != i)
  42         abort ();
  43     }
  44
  45   for (i = 0; i < N; i++)
  46     {
  47       if (acc_is_present (h + i, 1) != 0)
  48         abort ();
  49     }
  50
  51   acc_free (d);
  52
  53   free (h);
  54
  55   return 0;
  56 }