summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5P.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-04-10 22:15:51 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-04-10 22:15:51 (GMT)
commit408471420f13327597fb9c87149bc1bc709f8740 (patch)
tree9b9057577559d7cee59b25deac34c9af32a3dd9c /fortran/test/tH5P.f90
parent13ca97618db62034fa78b8d87f7160cb2a1f4bfc (diff)
downloadhdf5-408471420f13327597fb9c87149bc1bc709f8740.zip
hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.gz
hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.bz2
[svn-r10585] Purpose: Bug fix
Description: h5pget_driver_f function returned information that could not be interpreted by fortran application Solution: Defined Fortran global variables that correspond to the C H5FD_<driver_name> variables at the Fortran library initialization time. Platforms tested: heping with PGI compilers, sol 64-bit and copper parallel Misc. update:
Diffstat (limited to 'fortran/test/tH5P.f90')
-rw-r--r--fortran/test/tH5P.f907
1 files changed, 6 insertions, 1 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 8972af8..19a657f 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -162,7 +162,7 @@
INTEGER, DIMENSION(4,6) :: dset_data, data_out ! Data buffers
INTEGER :: error ! Error flag
-
+ INTEGER(HID_T) :: driver
INTEGER :: i, j !general purpose integers
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
INTEGER :: mdc_nelmts
@@ -217,6 +217,11 @@
CALL h5pget_fapl_multi_f(fapl, memb_map_out, memb_fapl_out, memb_name_out, &
memb_addr_out, relax_out, error)
CALL check("h5pget_fapl_multi_f", error, total_error)
+ CALL h5pget_driver_f(fapl, driver, error)
+ CALL check("h5pget_driver_f",error, total_error)
+ if(driver .ne. H5FD_MULTI_F) then
+ write(*,*) "Wrong value for driver"
+ endif
!
! Let's check h5pget(set)cache_f APIs here for now
!