vchoi_fork

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

!

! NAME

!  fflush2.f90

!

! FUNCTION

!  This is the second 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.  This half tries to read the

!  file created by the first half.

!

! 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 FFLUSH2EXAMPLE

​

  USE HDF5 ! This module contains all necessary modules

  USE TH5_MISC

​

  IMPLICIT NONE

​

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

  CHARACTER(LEN=80) :: fix_filename

​

  !

  !data space rank and dimensions

  !

  INTEGER, PARAMETER :: NX = 4

  INTEGER, PARAMETER :: NY = 5

​

  !

  ! File identifiers

  !

  INTEGER(HID_T) :: file_id

​

  !

  ! Group identifier

  !