diff options
Diffstat (limited to 'libc/math/test-dbl-wrap.c')
-rw-r--r-- | libc/math/test-dbl-wrap.c | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/libc/math/test-dbl-wrap.c b/libc/math/test-dbl-wrap.c deleted file mode 100644 index 07be1dd70..000000000 --- a/libc/math/test-dbl-wrap.c +++ /dev/null @@ -1,110 +0,0 @@ -#include <math.h> -#include <stdio.h> - -#define N 4 - -static int -do_test (int argc, char *argv[]) -{ - int i; - int result = 0; - - const double eps = 0.01, pi = 3.14; - const double sin_data[N][2] - = {{0.0, 0.0}, {pi / 6, 0.5}, {pi / 4, 0.707}, {pi / 3, 0.866}}; - const double exp_data[N][2] - = {{0.0, 1.0}, {0.5, 1.649}, {1.0, 2.718}, {2.718, 15.150}}; - - for (i = 0; i < N; ++i) - { - double x, y; - double s1, c1, t1, e1; - double s2, c2, t2, as2, ac2, at2, e2, l2; - - x = sin_data[i][0]; - s1 = sin_data[i][1]; - c1 = sqrt (1 - s1 * s1); - t1 = s1 / c1; - - s2 = sin (x); - c2 = cos (x); - t2 = tan (x); - as2 = asin (s1); - ac2 = acos (c1); - at2 = atan (t1); - - y = exp_data[i][0]; - e1 = exp_data[i][1]; - - e2 = exp (y); - l2 = log (e1); - - if (fabs (s1 - s2) > eps) - { - result |= 1; -#if PRINT - printf ("sin(%.3lf) = %.3lf\n", x, s2); -#endif - } - - if (fabs (c1 - c2) > eps) - { - result |= 2; -#if PRINT - printf ("cos(%.3lf) = %.3lf\n", x, c2); -#endif - } - - if (fabs (t1 - t2) > eps) - { - result |= 4; -#if PRINT - printf ("tan(%.3lf) = %.3lf\n", x, t2); -#endif - } - - if (fabs (x - as2) > eps) - { - result |= 8; -#if PRINT - printf ("asin(%.3lf) = %.3lf\n", s1, as2); -#endif - } - - if (fabs (x - ac2) > eps) - { - result |= 16; -#if PRINT - printf ("acos(%.3lf) = %.3lf\n", c1, ac2); -#endif - } - - if (fabs (x - at2) > eps) - { - result |= 32; -#if PRINT - printf ("atan(%.3lf) = %.3lf\n", t1, at2); -#endif - } - - if (fabs (e1 - e2) > eps) - { - result |= 64; -#if PRINT - printf ("exp(%.3lf) = %.3lf\n", y, e2); -#endif - } - - if (fabs (y - l2) > eps) - { - result |= 128; -#if PRINT - printf ("log(%.3lf) = %.3lf\n", e1, l2); -#endif - } - } - - return result; -} - -#include "../test-skeleton.c" |