summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5P.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2003-10-10 22:19:00 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2003-10-10 22:19:00 (GMT)
commitc72601e0d6246b6dc72d0c45c226e92b0ef4c2d7 (patch)
tree09c85d2572492a12ece9aac6761e97a75f191d63 /fortran/test/tH5P.f90
parentc4b72f1579cbfcf7ad8ad3f5318cd425cf35feb8 (diff)
downloadhdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.zip
hdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.tar.gz
hdf5-c72601e0d6246b6dc72d0c45c226e92b0ef4c2d7.tar.bz2
[svn-r7601]
Purpose: Bug fix Description: Parameter rdcc_nelmts of the h5pget_cache_f subroutine had wrong INTEGER(SIZE_T) instead of INTEGER type. Solution: Fixed the type Platforms tested: arabica in 64-bit mode (where INTEGER(SIZE_T) is not the same as INTEGER) Misc. update:
Diffstat (limited to 'fortran/test/tH5P.f90')
-rw-r--r--fortran/test/tH5P.f9018
1 files changed, 18 insertions, 0 deletions
diff --git a/fortran/test/tH5P.f90 b/fortran/test/tH5P.f90
index 9939085..635d4bf 100644
--- a/fortran/test/tH5P.f90
+++ b/fortran/test/tH5P.f90
@@ -166,6 +166,10 @@
INTEGER :: i, j !general purpose integers
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
INTEGER, DIMENSION(7) :: data_dims
+ INTEGER :: mdc_nelmts
+ INTEGER :: rdcc_nelmts
+ INTEGER(SIZE_T) :: rdcc_nbytes
+ REAL :: rdcc_w0
memb_fapl = H5P_DEFAULT_F
memb_map = H5FD_MEM_SUPER_F
memb_addr = 0.
@@ -214,6 +218,20 @@
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)
+ !
+ ! Let's check h5pget(set)cache_f APIs here for now
+ !
+ CALL h5pget_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, &
+ rdcc_w0, error)
+ CALL check("h5pget_cache_f", error, total_error)
+
+ ! Set cache to some number
+ !
+ rdcc_nbytes = 1024*1024
+ CALL h5pset_cache_f(fapl, mdc_nelmts, rdcc_nelmts, rdcc_nbytes, &
+ rdcc_w0, error)
+ CALL check("h5pset_cache_f", error, total_error)
+
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error, access_prp = fapl)
CALL check("h5fcreate_f", error, total_error)