diff options
Diffstat (limited to 'fortran/test/tH5G_1_8.f90')
| -rw-r--r-- | fortran/test/tH5G_1_8.f90 | 5 |
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) |