summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-12-30 16:27:29 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-12-30 16:27:29 (GMT)
commit0e779a215c14343022fe9e180fe1802eb6d96cec (patch)
tree06b27e8417c8da50c8749658b0e3a3e30b79f7d0 /fortran
parentdc869ba584879f37a3fe5d18be2aef75649fc5fc (diff)
downloadhdf5-0e779a215c14343022fe9e180fe1802eb6d96cec.zip
hdf5-0e779a215c14343022fe9e180fe1802eb6d96cec.tar.gz
hdf5-0e779a215c14343022fe9e180fe1802eb6d96cec.tar.bz2
[svn-r16231] Description:
Added chunk property to the data set because changes in the cC function H5Dset_extent now require/check that the data set is chunked.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5G_1_8.f905
1 files changed, 4 insertions, 1 deletions
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90
index 0caec01..443b0e8 100644
--- a/fortran/test/tH5G_1_8.f90
+++ b/fortran/test/tH5G_1_8.f90
@@ -1485,6 +1485,7 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
INTEGER :: i
INTEGER :: tmp1, tmp2
+ INTEGER(HID_T) :: crp_list
! WRITE(*,*) "link creation property lists (w/new group format)"
@@ -1541,9 +1542,11 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, &
!/* Create a dataspace */
CALL h5screate_simple_f(2, dims, space_id, error)
CALL check("test_lcpl.h5screate_simple_f",error,total_error)
+ CALL h5pcreate_f(H5P_DATASET_CREATE_F, crp_list, error)
+ CALL h5pset_chunk_f(crp_list, 2, dims, error)
! /* Create a dataset using the default LCPL */
- CALL h5dcreate_f(file_id, "/dataset", H5T_NATIVE_INTEGER, space_id, dset_id, error)
+ CALL h5dcreate_f(file_id, "/dataset", H5T_NATIVE_INTEGER, space_id, dset_id, error, crp_list)
CALL check("test_lcpl.h5dcreate_f", error, total_error)
CALL h5dclose_f(dset_id, error)
CALL check("test_lcpl.h5dclose_f", error, total_error)