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

   1 /* { dg-do run } */
   2
   3 #include <stdlib.h>
   4 #include <openacc.h>
   5
   6 int
   7 main (int argc, char **argv)
   8 {
   9   const int N = 256;
  10   int i;
  11   unsigned char *h;
  12   void *d;
  13
  14   h = (unsigned char *) malloc (N);
  15
  16   for (i = 0; i < N; i++)
  17     {
  18       h[i] = i;
  19     }
  20
  21   d = acc_copyin (h, N);
  22   if (!d)
  23     abort ();
  24
  25   for (i = 0; i < N; i++)
  26     {
  27       h[i] = 0xab;
  28     }
  29
  30   acc_update_device (0, N);
  31
  32   acc_copyout (h, N);
  33
  34   for (i = 0; i < N; i++)
  35     {
  36       if (h[i] != 0xab)
  37         abort ();
  38     }
  39
  40   free (h);
  41
  42   return 0;
  43 }
  44
  45 /* { dg-shouldfail "libgomp: \[\(nil\),256\] is not mapped" } */