godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed exit status of test program

Browse Source
This commit is contained in:
ceriel 1989-06-19 09:49:22 +00:00
parent fd32d4271d
commit e9f2b9999b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/cem/libcc/math/test.c
View File

@ -8,6 +8,8 @@
#include <math.h>
#include <stdio.h>
int nerrors;
#define EPS_D 5.0e-14
main()
{
@ -16,6 +18,7 @@ main()
testexplog();
testgamma();
testbessel();
exit(nerrors);
}
dotest(s, x, d, v)
@ -27,6 +30,7 @@ dotest(s, x, d, v)
if (fabs((v - d) / (fabs(v) < EPS_D ? 1.0 : v)) > EPS_D) {
printf(s, x);
printf(" = %.16e, should be %.16e\n", d, v);
nerrors++;
}
}