libgomp/testsuite/libgomp.oacc-c/lib-32.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   unsigned char *h;
  11   void *d1, *d2;
  12
  13   h = (unsigned char *) malloc (N);
  14
  15   d1 = acc_present_or_create (h, N);
  16   if (!d1)
  17     abort ();
  18
  19   d2 = acc_present_or_create (h, N);
  20   if (!d2)
  21     abort ();
  22
  23   if (d1 != d2)
  24     abort ();
  25
  26   d2 = acc_pcreate (h, N);
  27   if (!d2)
  28     abort ();
  29
  30   if (d1 != d2)
  31     abort ();
  32
  33   acc_delete (h, N);
  34
  35   free (h);
  36
  37   return 0;
  38 }