[flang-commits] [flang] [llvm] [mlir] [flang][OpenMP] Implement HAS_DEVICE_ADDR clause (PR #128568)

[Sergio Afonso via flang-commits]

================
@@ -0,0 +1,51 @@
+!REQUIRES: flang, amdgpu
+
+!Test derived from the sollve test for has-device-addr.
+
+!RUN: %libomptarget-compile-fortran-run-and-check-generic
+
+module m
+  use iso_c_binding
+
+contains
+  integer function target_has_device_addr()
+    integer :: errors
+    integer, target :: x
+    integer, pointer :: first_scalar_device_addr
+    type(c_ptr) :: cptr_scalar1
+
+    integer :: res1, res2
+
+    nullify (first_scalar_device_addr)
+    errors = 0
----------------
skatrak wrote:

It looks like this value is never updated, so you can probably delete it

https://github.com/llvm/llvm-project/pull/128568