diff options
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5S.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fortran/test/tH5S.f90 b/fortran/test/tH5S.f90 index 29943bb..b56d3a7 100644 --- a/fortran/test/tH5S.f90 +++ b/fortran/test/tH5S.f90 @@ -163,7 +163,13 @@ IF (classtype .NE. 1) write(*,*)"class type not H5S_SIMPLE_f" ! - !set the copied space to dim2 size. + !set the copied space to none before extend the dimensions. + ! + CALL h5sset_extent_none_f(space2_id, error) + CALL check("h5sset_extent_none_f", error, total_error) + + ! + !set the copied space to dim2 size. ! CALL h5sset_extent_simple_f(space2_id, rank2, dims2, maxdims2, error) CALL check("h5sset_extent_simple_f", error, total_error) |