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

! PR fortran/98476

subroutine abc(cc)
    integer, target :: cc, dd
    cc = 131
    dd = 484

    !$omp target enter data map(to: cc, dd)

    !$omp target data use_device_addr(cc) use_device_ptr(dd)
      !$omp target is_device_ptr(cc, dd)  ! { dg-error "Non-dummy object 'dd' in IS_DEVICE_PTR clause at" }
        if (cc /= 131 .or. dd /= 484) stop 1
        cc = 44
        dd = 45
      !$omp end target
    !$omp end target data

    !$omp target exit data map(from:cc, dd)

    if (cc /= 44 .or. dd /= 45) stop 5
end