diff options
Diffstat (limited to 'fortran/test/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index b69152e..2b539a4 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -18,17 +18,7 @@ ! This file contains subroutines which are used in ! all the hdf5 fortran tests ! -MODULE error_handler -! Controls the output style for reporting test results - - CHARACTER(LEN=8) :: error_string - CHARACTER(LEN=8), PARAMETER :: success = ' PASSED ' - CHARACTER(LEN=8), PARAMETER :: failure = '*FAILED*' - CHARACTER(LEN=8), PARAMETER :: skip = '--SKIP--' - CHARACTER(LEN=4), PARAMETER :: e_format ='(8a)' - -CONTAINS !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -47,6 +37,15 @@ CONTAINS CHARACTER(LEN=*), INTENT(IN) :: test_title ! Short description of test INTEGER, INTENT(INOUT) :: total_error ! Accumulated error +! Controls the output style for reporting test results + + CHARACTER(LEN=8) :: error_string + CHARACTER(LEN=8), PARAMETER :: success = ' PASSED ' + CHARACTER(LEN=8), PARAMETER :: failure = '*FAILED*' + CHARACTER(LEN=8), PARAMETER :: skip = '--SKIP--' + CHARACTER(LEN=4), PARAMETER :: e_format ='(8a)' + + error_string = failure IF (test_result == 0) THEN error_string = success @@ -61,8 +60,6 @@ CONTAINS END SUBROUTINE write_test_status -END MODULE error_handler - !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) |