diff options
Diffstat (limited to 'fortran/test/fflush1.f90')
| -rw-r--r-- | fortran/test/fflush1.f90 | 39 |
1 files changed, 30 insertions, 9 deletions
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90 index d71a7c0..a529eef 100644 --- a/fortran/test/fflush1.f90 +++ b/fortran/test/fflush1.f90 @@ -1,9 +1,24 @@ - ! - ! Purpose: 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 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 files COPYING and Copyright.html. COPYING can be found at the root * +! of the source code distribution tree; Copyright.html can be found at the * +! root level of an installed copy of the electronic HDF5 document set and * +! is linked from the top-level documents page. It can also be found at * +! http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have * +! access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! +! Purpose: 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 +! PROGRAM FFLUSH1EXAMPLE @@ -14,7 +29,8 @@ ! !the respective filename is "fflush1.h5" ! - CHARACTER(LEN=10), PARAMETER :: filename = "fflush1.h5" + CHARACTER(LEN=7), PARAMETER :: filename = "fflush1" + CHARACTER(LEN=80) :: fix_filename ! !data space rank and dimensions @@ -75,7 +91,7 @@ !Initialize FORTRAN predifined datatypes ! CALL h5open_f(error) - CALL check("h5init_types_f",error,total_error) + CALL check("h5open_f",error,total_error) ! !Initialize data_in buffer @@ -89,7 +105,12 @@ ! !Create file "fflush1.h5" using default properties. ! - CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, error) + CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error) + if (error .ne. 0) then + write(*,*) "Cannot modify filename" + stop + endif + CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error) CALL check("h5fcreate_f",error,total_error) ! |