[llvm] [openmp] Reland: [OpenMP] Implement omp_get_uid_from_device() / omp_get_device_from_uid() (PR #168554)

[Michael Klemm via llvm-commits]

================
@@ -491,13 +491,15 @@
 
         function omp_get_uid_from_device(device_num) bind(c)
           import
+          import :: c_ptr
           integer (kind=omp_integer_kind), value :: device_num
-          character (len=*) omp_get_uid_from_device
+          type(c_ptr) omp_get_uid_from_device
         end function omp_get_uid_from_device
 
         function omp_get_device_from_uid(device_uid) bind(c)
           import
-          character (len=*), value :: device_uid
+          import :: c_ptr
+          type(c_ptr), value :: device_uid
----------------
mjklemm wrote:

Interface does not match the OpenMP specification.

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