(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.oacc-c-c++-common/
host_data-5.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], y[N], *yp;
      11  
      12    yp = y + 1;
      13  
      14  #pragma acc data copyin (x[0:N])
      15    {
      16      int *xp, *yp2;
      17  #pragma acc host_data use_device (x)
      18      {
      19  #pragma acc data copyin (y)
      20        {
      21  #pragma acc host_data use_device (yp)
      22  	{
      23  	  xp = x;
      24  	  yp2 = yp;
      25  	}
      26  
      27          if (yp2 != acc_deviceptr (yp))
      28  	  abort ();
      29        }
      30      }
      31  
      32      if (xp != acc_deviceptr (x))
      33        abort ();
      34  
      35    }
      36  
      37    return 0;
      38  }