summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5P.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2003-06-18 21:21:51 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2003-06-18 21:21:51 (GMT)
commit2c924c0df109c3ad3d85cd021bb44524872bf770 (patch)
treeb9c574bca57a62d4f79ec098395071e8e139830c /fortran/test/tH5P.f90
parent7c1054856ac624759db172369cd6d25ee13e4a47 (diff)
downloadhdf5-2c924c0df109c3ad3d85cd021bb44524872bf770.zip
hdf5-2c924c0df109c3ad3d85cd021bb44524872bf770.tar.gz
hdf5-2c924c0df109c3ad3d85cd021bb44524872bf770.tar.bz2
[svn-r7062]
Purpose: Bug fix Description: On Cray SV1 multi-driver test failed while closing access property list. This test creates a file using multi driver, writes dataset, closes the file; reopens the file and reads back data. At some point I commented out call to h5pget_access_plist_f, but forgot to comment out corresponding h5pclose_f. Solution: removed comment on the h5pget_access_plist_f subroutine. Platforms tested: Cray SV1, copper with parallel, Winodws with VF, arabica. There is some caveat left. I have a call to h5pget_fapl_multi_f that follows h5pget_access_plist_f, it was also commented out. This call works everywhere except Windows. Fortran part looks OK, since my test program uses h5pget_fapl_multi_f before it closes the file in the same test, and it works. Probably it is a library bug that needs confirmation. For now I will leave second h5pget_fapl_multi_f commented out. Misc. update:
Diffstat (limited to 'fortran/test/tH5P.f90')
-rw-r--r--fortran/test/tH5P.f906
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 7f61b43..16d9daf 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -272,9 +272,9 @@
CALL h5fopen_f (fix_filename, H5F_ACC_RDWR_F, file_id, error, access_prp = fapl)
CALL check("h5fopen_f", error, total_error)
!
- !It looks like a bug in the C Library
- !CALL h5fget_access_plist_f(file_id, fapl_1, error)
- ! CALL check("h5fget_access_plist_f", error, total_error)
+ CALL h5fget_access_plist_f(file_id, fapl_1, error)
+ CALL check("h5fget_access_plist_f", error, total_error)
+ !It doesn't work on Windows.
!CALL h5pget_fapl_multi_f(fapl_1, memb_map_out, memb_fapl_out, memb_name_out, &
! memb_addr_out, relax_out, error)
! write(*,*) memb_map_out