From 5f326d50fae80e26c519a40e9b5d4e631ef7c5dc Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Fri, 16 Sep 2005 21:51:09 -0500
Subject: [svn-r11423] Purpose: Small bug fix

Description: wrong parameter was passed to the Fortran call.

Solution: fixed

Platforms tested: SX-6

Misc. update:
---
 fortran/test/tH5F.f90 | 3 +--
 1 file changed, 1 insertion(+), 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
-- 
cgit v0.12