diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-13 19:43:46 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-10-13 19:43:46 (GMT) |
| commit | 87cb207125420d67818e9e5a7a0d41c7f18a86a7 (patch) | |
| tree | 1b672bce0b795ecb77101e33b36f3f57f647ccd2 | |
| parent | dc51c5093bfa04294f05334dc6cf0e80e7e9086e (diff) | |
| download | hdf5-87cb207125420d67818e9e5a7a0d41c7f18a86a7.zip hdf5-87cb207125420d67818e9e5a7a0d41c7f18a86a7.tar.gz hdf5-87cb207125420d67818e9e5a7a0d41c7f18a86a7.tar.bz2 | |
[svn-r7617] Purpose:
Bug fix
Description:
"group" test was not updating total number of errors correctly.
Platforms tested:
None, just eyeballed it - too minor of a fix to require testing
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index a244f53..4fa9c99 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -306,7 +306,7 @@ write(*, fmt = '(11a)', advance = 'no') ' Group test' write(*, fmt = '(59x,a)', advance = 'no') ' ' write(*, fmt = e_format) error_string - total_error = total_error + identifier_total_error + total_error = total_error + group_total_error error_string = failure CALL error_report_test(cleanup, error_total_error) |