summaryrefslogtreecommitdiff
path: root/libc/math/test-dbl-wrap.c
diff options
context:
space:
mode:
Diffstat (limited to 'libc/math/test-dbl-wrap.c')
-rw-r--r--libc/math/test-dbl-wrap.c110
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"