From 88ed5b69d4f7c51432d26f0d97ab0a6cfeefaddb Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 23 Aug 2022 11:09:08 -0500
Subject: removed h5rget_object_type_f module interface (#2057)

---
 fortran/src/H5Rff.F90              | 15 ++++-----------
 fortran/src/hdf5_fortrandll.def.in |  2 +-
 2 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90
index 9e12ee8..a25cf10 100644
--- a/fortran/src/H5Rff.F90
+++ b/fortran/src/H5Rff.F90
@@ -56,18 +56,11 @@ MODULE H5R
   !        END TYPE
   !
 
-  PRIVATE h5rget_object_type_obj_f
   PRIVATE h5rget_region_region_f, h5rget_region_ptr_f
   PRIVATE h5rcreate_object_f, h5rcreate_region_f, h5rcreate_ptr_f
   PRIVATE h5rdereference_object_f, h5rdereference_region_f, h5rdereference_ptr_f
   PRIVATE h5rget_name_object_f, h5rget_name_region_f, h5rget_name_ptr_f
 
-  INTERFACE h5rget_object_type_f
-
-     MODULE PROCEDURE h5rget_object_type_obj_f
-
-  END INTERFACE
-
   TYPE :: hdset_reg_ref_t_f03
      INTEGER(C_SIGNED_CHAR), DIMENSION(1:H5R_DSET_REG_REF_BUF_SIZE_F) :: ref
   END TYPE hdset_reg_ref_t_f03
@@ -162,10 +155,10 @@ MODULE H5R
 
 CONTAINS
 
-!****s* H5R/h5rget_object_type_obj_f
+!****s* H5R/h5rget_object_type_f
 !
 ! NAME
-!  h5rget_object_type_obj_f
+!  h5rget_object_type_f
 !
 ! PURPOSE
 !  Retrieves the type of object that an object reference points to.
@@ -195,7 +188,7 @@ CONTAINS
 !  This is a module procedure for the h5rget_object_type_f
 !  subroutine.
 ! SOURCE
-  SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr)
+  SUBROUTINE  h5rget_object_type_f(dset_id, ref, obj_type, hdferr)
     IMPLICIT NONE
     INTEGER(HID_T), INTENT(IN) :: dset_id   ! Dataset identifier
     TYPE(hobj_ref_t_f), INTENT(IN) :: ref   ! Object reference
@@ -221,7 +214,7 @@ CONTAINS
     ref_f = ref%ref
     hdferr = h5rget_object_type_obj_c(dset_id, ref_f, obj_type )
 
-  END SUBROUTINE h5rget_object_type_obj_f
+  END SUBROUTINE h5rget_object_type_f
 
 
 !****s* H5R/h5rget_region_region_f
diff --git a/fortran/src/hdf5_fortrandll.def.in b/fortran/src/hdf5_fortrandll.def.in
index 4207239..72fa43b 100644
--- a/fortran/src/hdf5_fortrandll.def.in
+++ b/fortran/src/hdf5_fortrandll.def.in
@@ -357,7 +357,7 @@ H5R_mp_H5RCREATE_REGION_F
 H5R_mp_H5RDEREFERENCE_OBJECT_F
 H5R_mp_H5RDEREFERENCE_REGION_F
 H5R_mp_H5RGET_REGION_REGION_F
-H5R_mp_H5RGET_OBJECT_TYPE_OBJ_F
+H5R_mp_H5RGET_OBJECT_TYPE_F
 H5R_mp_H5RGET_NAME_OBJECT_F
 H5R_mp_H5RGET_NAME_REGION_F
 H5R_mp_H5RGET_REGION_PTR_F
-- 
cgit v0.12