[Bug fortran/105318] [OpenMP] is_device_ptr rejects valid arguments to has_device_addr

[burnus at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105318

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Likewise, the following is now permitted:

  type(c_ptr) :: aptr
  ...
  !$omp target is_device_ptr(aPtr)

but still rejected with:

Error: Non-dummy object ‘aptr’ in IS_DEVICE_PTR clause at (1)