/* { dg-do compile } */
/* { dg-options "-fopenmp -fdump-tree-gimple" } */

void
foo ()
{
  int *x, *y;

  #pragma omp target data map(x, y) use_device_ptr(x, y)
    #pragma omp target is_device_ptr(x, y)
      {
	*x = 42;
      }
}

/* { dg-final { scan-tree-dump "is_device_ptr\\(x\\)"  "gimple" } } */
/* { dg-final { scan-tree-dump-not "is_device_ptr\\(y\\)"  "gimple" } } */