mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r11201] Purpose:

Browse Source 
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.
This commit is contained in:
Albert Cheng 2005-08-04 15:22:11 -05:00
parent 914f990f22
commit 548608ed7f
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/fflush1.f90
View File

@ -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)

9
fortran/test/fflush2.f90
View File

@ -95,8 +95,9 @@
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
print *, "filename=", filename, "fix_filename=", fix_filename
CALL h5fopen_f(fix_filename, H5F_ACC_RDONLY_F, file_id, error)
CALL check("h5fopen_f",error,total_error)
@ -139,11 +140,9 @@
CALL check("h5gopen_f",error,total_error)
!
!In case error happens, jump to stop.
!In case error happens, exit.
!
IF (error == -1) THEN
001 STOP
END IF
IF (error == -1) CALL h5_exit_f (1)
!
!Close the datatype