diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2005-08-04 20:22:11 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2005-08-04 20:22:11 (GMT) |
| commit | 548608ed7f7da50b37b14496a8cfaa08c40a1b1c (patch) | |
| tree | 9d91841b211a92971a779ef9cdeca7fb8b062825 /fortran/test/fflush1.f90 | |
| parent | 914f990f22fffb5afbf55cda856ab9a6e9db3b60 (diff) | |
| download | hdf5-548608ed7f7da50b37b14496a8cfaa08c40a1b1c.zip hdf5-548608ed7f7da50b37b14496a8cfaa08c40a1b1c.tar.gz hdf5-548608ed7f7da50b37b14496a8cfaa08c40a1b1c.tar.bz2 | |
[svn-r11201] Purpose:
bug fix.
Description:
test program used fortran STOP to end the program even when there
was an error. STOP does not exit with non-zero. Therefore, make
or other programs could not detect an error has occurred.
Solution:
Wherever it is appropirate, replace STOP with h5_exit_f statments.
Platforms tested:
Tested in heping.
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) |