diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-06-04 23:21:16 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-06-04 23:21:16 (GMT) |
commit | 115e88e6450e7ac509e5e4df40edf6d4c8713b5e (patch) | |
tree | a84f7fc0e1ec1333f6e507f6a0f352d6aacf92b6 /fortran/test/tH5T.f90 | |
parent | c67aff706f675b8386fb3b6eb66d41aa8e8ce80d (diff) | |
download | hdf5-115e88e6450e7ac509e5e4df40edf6d4c8713b5e.zip hdf5-115e88e6450e7ac509e5e4df40edf6d4c8713b5e.tar.gz hdf5-115e88e6450e7ac509e5e4df40edf6d4c8713b5e.tar.bz2 |
[svn-r6967]
Purpose: Maintenance
Description: Updated test to use new type of the argument for the
h5pset(get)_preserve_f function
Solution:
Platforms tested: arabica nad verbena
Misc. update:
Diffstat (limited to 'fortran/test/tH5T.f90')
-rw-r--r-- | fortran/test/tH5T.f90 | 3 |
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. |