vchoi_fork

!****h* root/fortran/test/fflush1.f90

!

! NAME

!  FFLUSH1EXAMPLE

!

! FUNCTION

!  This is the first half of a two-part test that makes sure

!  that a file can be read after an application crashes as long

!  as the file was flushed first.  We simulate by exit the 

!  the program using stop statement

!

! COPYRIGHT

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!   Copyright by The HDF Group.                                               *

!   Copyright by the Board of Trustees of the University of Illinois.         *

!   All rights reserved.                                                      *

!                                                                             *

!   This file is part of HDF5.  The full HDF5 copyright notice, including     *

!   terms governing use, modification, and redistribution, is contained in    *

!   the COPYING file, which can be found at the root of the source code       *

!   distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.  *

!   If you do not have access to either file, you may request a copy from     *

!   help@hdfgroup.org.                                                        *

! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

!

!*****

​

     PROGRAM FFLUSH1EXAMPLE

​

     USE HDF5 ! This module contains all necessary modules

     USE TH5_MISC

​

     IMPLICIT NONE

​

     !

     !the respective filename is "fflush1.h5"

     !

     CHARACTER(LEN=7), PARAMETER :: filename = "fflush1"

     CHARACTER(LEN=80) :: fix_filename

​

     !

     !data space rank and dimensions

     !

     INTEGER, PARAMETER :: RANK = 2

     INTEGER, PARAMETER :: NX = 4

     INTEGER, PARAMETER :: NY = 5

​

     !

     ! File identifiers

     !

     INTEGER(HID_T) :: file_id