libgomp/testsuite/libgomp.oacc-c/lib-58.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 *d;
  12
  13   h = (unsigned char *) malloc (N);
  14
  15   d = acc_malloc (N);
  16
  17   acc_map_data (h, d, N);
  18
  19   acc_unmap_data (0);
  20
  21   acc_free (d);
  22
  23   free (h);
  24
  25   return 0;
  26 }
  27
  28 /* { dg-shouldfail "libgomp: \(nil\) is not a mapped block" } */