diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2001-03-02 22:20:39 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2001-03-02 22:20:39 (GMT) |
commit | d0b8c9b23fb22a60d83a576fc57cedb0fcf67df2 (patch) | |
tree | ec796210c8844eb1f6e20c791310be4a715503bd /fortran/test/tH5R.f90 | |
parent | ea82f9e04da223b79ff3ddab847b8b62bb2094c2 (diff) | |
download | hdf5-d0b8c9b23fb22a60d83a576fc57cedb0fcf67df2.zip hdf5-d0b8c9b23fb22a60d83a576fc57cedb0fcf67df2.tar.gz hdf5-d0b8c9b23fb22a60d83a576fc57cedb0fcf67df2.tar.bz2 |
[svn-r3544]
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/tH5R.f90')
-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) |