diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2001-03-02 22:14:14 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2001-03-02 22:14:14 (GMT) |
| commit | 9f9c0d9a8e80195cc9beb0671d9785683e38f9ec (patch) | |
| tree | 1c288ce9b77b7d25c7651fb6c5d5759a703c3e76 /fortran/test | |
| parent | d53b78c03ba92862f4aaf0e5454bfdaaa84ea243 (diff) | |
| download | hdf5-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.f90 | 8 |
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) |