diff options
Diffstat (limited to 'fortran/test/fflush1.f90')
-rw-r--r-- | fortran/test/fflush1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90 index bace5f9..f078413 100644 --- a/fortran/test/fflush1.f90 +++ b/fortran/test/fflush1.f90 @@ -107,7 +107,7 @@ CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error) if (error .ne. 0) then write(*,*) "Cannot modify filename" - stop + CALL h5_exit_f (1) endif CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error) CALL check("h5fcreate_f",error,total_error) |