1 files changed, 22 insertions, 0 deletions
diff --git a/libgomp/omp_lib.h.in b/libgomp/omp_lib.h.in
index 6959f1e..fcfc737 100644
--- a/libgomp/omp_lib.h.in
+++ b/libgomp/omp_lib.h.in
@@ -610,3 +610,25 @@
           integer (omp_interop_rc_kind), value :: ret_code
         end function omp_get_interop_rc_desc
       end interface
+
+      interface
+        integer(c_int) function omp_get_device_from_uid (uid)
+          use iso_c_binding
+          character, intent(in) :: uid(*)
+        end function omp_get_device_from_uid
+      end interface
+
+      interface omp_get_uid_from_device
+!       Deviation from OpenMP 6.0: VALUE added.
+        character(:) function omp_get_uid_from_device (device_num)
+          use iso_c_binding
+          pointer :: omp_get_uid_from_device
+          integer(c_int32_t), intent(in), value :: device_num
+        end function omp_get_uid_from_device
+
+        character(:) function omp_get_uid_from_device_8 (device_num)
+          use iso_c_binding
+          pointer :: omp_get_uid_from_device_8
+          integer(c_int64_t), intent(in), value :: device_num
+        end function omp_get_uid_from_device_8
+      end interface omp_get_uid_from_device