summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2003-06-04 23:21:16 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2003-06-04 23:21:16 (GMT)
commit115e88e6450e7ac509e5e4df40edf6d4c8713b5e (patch)
treea84f7fc0e1ec1333f6e507f6a0f352d6aacf92b6
parentc67aff706f675b8386fb3b6eb66d41aa8e8ce80d (diff)
downloadhdf5-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:
-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.