From 115e88e6450e7ac509e5e4df40edf6d4c8713b5e Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Wed, 4 Jun 2003 18:21:16 -0500
Subject: [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:
---
 fortran/test/tH5T.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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.
-- 
cgit v0.12