summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5F.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-09-17 02:51:09 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-09-17 02:51:09 (GMT)
commit5f326d50fae80e26c519a40e9b5d4e631ef7c5dc (patch)
tree9177e3ccb7664d50d8d62314ffbd2df966fdb2f2 /fortran/test/tH5F.f90
parentb6c10b6bbfcf0634354e89fd88691aa54f7bdf26 (diff)
downloadhdf5-5f326d50fae80e26c519a40e9b5d4e631ef7c5dc.zip
hdf5-5f326d50fae80e26c519a40e9b5d4e631ef7c5dc.tar.gz
hdf5-5f326d50fae80e26c519a40e9b5d4e631ef7c5dc.tar.bz2
[svn-r11423] Purpose: Small bug fix
Description: wrong parameter was passed to the Fortran call. Solution: fixed Platforms tested: SX-6 Misc. update:
Diffstat (limited to 'fortran/test/tH5F.f90')
-rw-r--r--fortran/test/tH5F.f903
1 files changed, 1 insertions, 2 deletions
diff --git a/fortran/test/tH5F.f90 b/fortran/test/tH5F.f90
index d356619..590a83c 100644
--- a/fortran/test/tH5F.f90
+++ b/fortran/test/tH5F.f90
@@ -628,7 +628,6 @@
write(*,*) " File access lists should be equal, error "
total_error=total_error + 1
endif
-
CALL h5fopen_f(fix_filename, H5F_ACC_RDWR_F, fid2, error, access_prp=fapl2)
if( error .ne. -1) then
total_error = total_error + 1
@@ -653,7 +652,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, -1, obj_ids, error)
+ CALL h5fget_obj_ids_f(fid, H5F_OBJ_FILE_F, obj_countf, obj_ids, error)
CALL check("h5fget_obj_ids_f",error,total_error)
if(error .eq. 0) then
do i = 1, obj_countf