gcc/testsuite/gfortran.dg/gomp/is_device_ptr-2.f90

   1 ! PR fortran/98476
   2
   3 subroutine abc(cc)
   4     integer, target :: cc, dd
   5     cc = 131
   6     dd = 484
   7
   8     !$omp target enter data map(to: cc, dd)
   9
  10     !$omp target data use_device_addr(cc) use_device_ptr(dd)
  11       !$omp target is_device_ptr(cc, dd)  ! { dg-error "Non-dummy object 'dd' in IS_DEVICE_PTR clause at" }
  12         if (cc /= 131 .or. dd /= 484) stop 1
  13         cc = 44
  14         dd = 45
  15       !$omp end target
  16     !$omp end target data
  17
  18     !$omp target exit data map(from:cc, dd)
  19
  20     if (cc /= 44 .or. dd /= 45) stop 5
  21 end