From 9f9c0d9a8e80195cc9beb0671d9785683e38f9ec Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Fri, 2 Mar 2001 17:14:14 -0500
Subject: [svn-r3543] Purpose: Bug fix Description: Function name
h5rget_object_type_obj_f was used in test program instead of the generic
name h5rget_object_type_f. Solution: Changed the name. Platforms tested:
Linux (eirene)
---
fortran/test/tH5R.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90
index 9cd75fd..3975357 100644
--- a/fortran/test/tH5R.f90
+++ b/fortran/test/tH5R.f90
@@ -145,8 +145,8 @@
!
!get the third reference's type and Dereference it
!
- CALL h5rget_object_type_obj_f(dsetr_id, ref(3), obj_type, error)
- CALL check("h5rget_object_type_obj_f",error,total_error)
+ CALL h5rget_object_type_f(dsetr_id, ref(3), obj_type, error)
+ CALL check("h5rget_object_type_f",error,total_error)
if (obj_type == 2) then
CALL h5rdereference_f(dsetr_id, ref(3), dset1_id, error)
CALL check("h5rdereference_f",error,total_error)
@@ -158,8 +158,8 @@
!
!get the fourth reference's type and Dereference it
!
- CALL h5rget_object_type_obj_f(dsetr_id, ref(4), obj_type, error)
- CALL check("h5rget_object_type_obj_f",error,total_error)
+ CALL h5rget_object_type_f(dsetr_id, ref(4), obj_type, error)
+ CALL check("h5rget_object_type_f",error,total_error)
if (obj_type == 3) then
CALL h5rdereference_f(dsetr_id, ref(4), type_id, error)
CALL check("h5rdereference_f",error,total_error)
--
cgit v0.12