diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2002-11-26 00:43:15 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2002-11-26 00:43:15 (GMT) |
| commit | f5f61bf7832273bf3701002377659a4e98c404b3 (patch) | |
| tree | 3cab5efd9113f3587f1bd56485e9bae8e39adbb5 /fortran/test | |
| parent | 8333adf8ffc1265440aefad62e0cd9ab33175bd7 (diff) | |
| download | hdf5-f5f61bf7832273bf3701002377659a4e98c404b3.zip hdf5-f5f61bf7832273bf3701002377659a4e98c404b3.tar.gz hdf5-f5f61bf7832273bf3701002377659a4e98c404b3.tar.bz2 | |
[svn-r6138] Purpose:
Improvement
Description:
The fortran test code did not exit with error like C programs do.
Without the appropriate exit code, make or shell could not tell the
fortran test program has encountered errors. So, make continues on
even when some fortran tests have failed.
Solution:
Consultant advised to use "CALL exit(code)" to simulate what C programs
do. Though this is not standard Fortran, he has not seen it failed to
work in most fortran compilers thought some of them, like intel compiler,
may need to link in an extra library.
Platforms tested:
Tested on burrwhite (linux 2.4), eirene (linux 2.2), sol (Solaris 8, serial
and mpich parallel), modi4.
Did not use the standard commit test since this is a purely fortran fix.
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/fflush1.f90 | 4 | ||||
| -rw-r--r-- | fortran/test/fflush2.f90 | 4 | ||||
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 4 |
3 files changed, 12 insertions, 0 deletions
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90 index a529eef..998ee5a 100644 --- a/fortran/test/fflush1.f90 +++ b/fortran/test/fflush1.f90 @@ -144,6 +144,10 @@ CALL H5fflush_f(file_id, H5F_SCOPE_GLOBAL_F, error) CALL check("h5fflush_f",error,total_error) + ! if errors detected, exit with non-zero code. This is not truly fortran + ! standard but likely supported by most fortran compilers. + IF (total_error .ne. 0) CALL exit (total_error) + 001 STOP diff --git a/fortran/test/fflush2.f90 b/fortran/test/fflush2.f90 index 41b94cb..bda9d07 100644 --- a/fortran/test/fflush2.f90 +++ b/fortran/test/fflush2.f90 @@ -177,4 +177,8 @@ CALL h5close_f(error) CALL check("h5close_types_f",error,total_error) + ! if errors detected, exit with non-zero code. This is not truly fortran + ! standard but likely supported by most fortran compilers. + IF (total_error .ne. 0) CALL exit (total_error) + END PROGRAM FFLUSH2EXAMPLE diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 41398b7..d90fcba 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -276,6 +276,10 @@ CALL h5close_f(error) + ! if errors detected, exit with non-zero code. This is not truly fortran + ! standard but likely supported by most fortran compilers. + IF (total_error .ne. 0) CALL exit (total_error) + END PROGRAM fortranlibtest |