diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-06-18 21:21:51 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-06-18 21:21:51 (GMT) |
| commit | 2c924c0df109c3ad3d85cd021bb44524872bf770 (patch) | |
| tree | b9c574bca57a62d4f79ec098395071e8e139830c /fortran/test/tH5P.f90 | |
| parent | 7c1054856ac624759db172369cd6d25ee13e4a47 (diff) | |
| download | hdf5-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.f90 | 6 |
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 |