fixed exit status of test program

This commit is contained in:
ceriel 1989-06-19 09:49:22 +00:00
parent f3249a04a1
commit 96a52f7a6f

View file

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