1  /* { dg-do compile } */
       2  /* { dg-options "-fopenmp -fdump-tree-gimple" } */
       3  
       4  void
       5  foo ()
       6  {
       7    int x, y;
       8  
       9    #pragma omp target data map(x, y) use_device_addr(x, y)
      10      #pragma omp target has_device_addr(x, y)
      11        {
      12  	x = 42;
      13        }
      14  }
      15  
      16  /* { dg-final { scan-tree-dump "has_device_addr\\(x\\)"  "gimple" } } */
      17  /* { dg-final { scan-tree-dump-not "has_device_addr\\(y\\)"  "gimple" } } */