mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r7613] Purpose:

Browse Source 
Bug fix

Description:
    "group" errors were not being included in the total # of errors


Platforms tested:
    FreeBSD 4.9 (sleipnir)
    Linux 2.4 (verbena) w/FORTRAN
    too minor for h5committest
This commit is contained in:
Quincey Koziol 2003-10-13 14:23:16 -05:00
parent 6dbba8d7af
commit 145839e8cf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/fortranlib_test.f90
View File

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