libgomp/testsuite/libgomp.oacc-c-c++-common/host_data-2.c

   1 /* { dg-do run { target openacc_nvidia_accel_selected } } */
   2
   3 #include <stdlib.h>
   4 #include <openacc.h>
   5
   6 char *global_in_host;
   7
   8 void foo (char *in)
   9 {
  10   if (!acc_is_present (global_in_host, sizeof (*global_in_host))
  11       || in != acc_deviceptr (global_in_host))
  12     abort ();
  13 }
  14
  15 int
  16 main (int argc, char **argv)
  17 {
  18   char mydata[1024];
  19
  20   global_in_host = mydata;
  21
  22 #pragma acc data copyin(mydata)
  23   {
  24 #pragma acc host_data use_device (mydata)
  25     {
  26       foo (mydata);
  27     }
  28   }
  29
  30   return 0;
  31 }