(root)/
gcc-13.2.0/
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  }