summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/test/tH5T.f903
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90
index 3203347..5f9cde2 100644
--- a/fortran/test/tH5T.f90
+++ b/fortran/test/tH5T.f90
@@ -88,6 +88,7 @@
INTEGER :: elements = 24 ! number of elements in the array_dims array.
INTEGER(SIZE_T) :: sizechar
INTEGER, DIMENSION(7) :: data_dims
+ LOGICAL :: flag = .TRUE.
data_dims(1) = dimsize
!
! Initialize data buffer.
@@ -111,7 +112,7 @@
!
CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
CALL check("h5pcreate_f", error, total_error)
- CALL h5pset_preserve_f(plist_id, 1, error)
+ CALL h5pset_preserve_f(plist_id, flag, error)
CALL check("h5pset_preserve_f", error, total_error)
!
! Create a new file using default properties.