diff options
| -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) |