(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.oacc-c-c++-common/
host_data-4.c
       1  /* { dg-do run { target openacc_nvidia_accel_selected } } */
       2  
       3  #include <openacc.h>
       4  #include <stdlib.h>
       5  
       6  #define N 1024
       7  
       8  int main (int argc, char* argv[])
       9  {
      10    int x[N], *xp2;
      11  
      12  #pragma acc data copyin (x[0:N])
      13    {
      14      int *xp;
      15  #pragma acc host_data use_device (x)
      16      {
      17  #pragma acc data
      18        {
      19          xp = x;
      20        }
      21        xp2 = x;
      22      }
      23  
      24      if (xp != acc_deviceptr (x) || xp2 != xp)
      25        abort ();
      26    }
      27  
      28    return 0;
      29  }