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 <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++;
}
}