summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-06-18 20:52:54 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-06-18 20:52:54 (GMT)
commit1aeaa7fbb1072d18a533b7bbf8f996f6b194de73 (patch)
tree989cbf236bb9ed1bde75baa631a803eb75f7ee4e /fortran/test
parentb6fca58d925dd2e8287b746b3deb81f71fc6e75f (diff)
downloadhdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.zip
hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.gz
hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.bz2
[svn-r7059] Purpose:
Refactoring Description: Track changes to H5Fget_obj_<foo> API functions. Platforms tested: FreeBSD 4.8 (sleipnir) h5committest
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5F.f902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index 6aa796d..e8f933a 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -638,7 +638,7 @@
write(*,*) "Wrong number of open objects reported, error"
endif
allocate(obj_ids(obj_countf), stat = error)
- CALL h5fget_obj_ids_f(fid, H5F_OBJ_FILE_F, obj_ids, error)
+ CALL h5fget_obj_ids_f(fid, H5F_OBJ_FILE_F, -1, obj_ids, error)
CALL check("h5fget_obj_ids_f",error,total_error)
if(error .eq. 0) then
do i = 1, obj_countf