From 650600f1430d6be1d521a891240ec732cb892f0b Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Thu, 5 Jun 2003 07:37:49 -0500
Subject: [svn-r6968] Purpose:     Code cleanup

Description:
    h5pset_preserve_f function changed from an INTEGER to a LOGICAL parameter,
change it here too.

Platforms tested:
    h5committested
---
 fortran/examples/compound.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/examples/compound.f90 b/fortran/examples/compound.f90
index 422f1d8..0b111d5 100644
--- a/fortran/examples/compound.f90
+++ b/fortran/examples/compound.f90
@@ -87,7 +87,7 @@
      ! during write/read to/from dataset with compound datatype.
      !
      CALL h5pcreate_f(H5P_DATASET_XFER_F, plist_id, error)
-     CALL h5pset_preserve_f(plist_id, 1, error)
+     CALL h5pset_preserve_f(plist_id, .TRUE., error)
 
      !
      ! Create a new file using default properties.
-- 
cgit v0.12