summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/test/tH5R.f908
1 files 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)