summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-03-02 22:14:14 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-03-02 22:14:14 (GMT)
commit9f9c0d9a8e80195cc9beb0671d9785683e38f9ec (patch)
tree1c288ce9b77b7d25c7651fb6c5d5759a703c3e76 /fortran/test
parentd53b78c03ba92862f4aaf0e5454bfdaaa84ea243 (diff)
downloadhdf5-9f9c0d9a8e80195cc9beb0671d9785683e38f9ec.zip
hdf5-9f9c0d9a8e80195cc9beb0671d9785683e38f9ec.tar.gz
hdf5-9f9c0d9a8e80195cc9beb0671d9785683e38f9ec.tar.bz2
[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)
Diffstat (limited to 'fortran/test')
-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)