[Openmp-commits] [llvm] [openmp] [OpenMP] Add Fortran support routines for dyn_groupprivate (OpenMP 6.1) (PR #211630)

[Michael Klemm via Openmp-commits]

================
@@ -1025,6 +1034,44 @@
           integer, intent(in) :: resources(*)
         end function omp_get_submemspace
 
+        function omp_get_dyn_gprivate_ptr(offset, access_group)
+          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
+          import
+          type (c_ptr) omp_get_dyn_gprivate_ptr
+          integer (kind=c_size_t), value, optional :: offset
+          integer(omp_access_kind), value, optional :: access_group
+        end function omp_get_dyn_gprivate_ptr
+
+        function omp_get_dyn_gprivate_nofb_ptr(offset, access_group)
+          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
+          import
+          type (c_ptr) omp_get_dyn_gprivate_nofb_ptr
+          integer (kind=c_size_t), value, optional :: offset
+          integer(omp_access_kind), value, optional :: access_group
+        end function omp_get_dyn_gprivate_nofb_ptr
+
+        function omp_get_dyn_gprivate_size(access_group)
+          use, intrinsic :: iso_c_binding, only : c_size_t
+          import
+          integer (kind=c_size_t) omp_get_dyn_gprivate_size
+          integer(omp_access_kind), value, optional :: access_group
+        end function omp_get_dyn_gprivate_size
+
+        function omp_get_dyn_gprivate_memspace(access_group)
+          import
+          integer(omp_memspace_handle_kind)
+     &      omp_get_dyn_gprivate_memspace
----------------
mjklemm wrote:

I have applied this suggestion.  GitHub does not show that though.

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