From b09805786d93a38f7437cab798b002af24e5c6c6 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 22 Jul 1988 20:58:48 +0000 Subject: [PATCH] Added some prints --- lang/cem/libcc/math/test.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lang/cem/libcc/math/test.c b/lang/cem/libcc/math/test.c index a12f19f33..eeadd872f 100644 --- a/lang/cem/libcc/math/test.c +++ b/lang/cem/libcc/math/test.c @@ -38,6 +38,8 @@ testsqrt() double x, val; extern double sqrt(); + printf("testing sqrt ... \n"); + dotest("sqrt(%.1f)", 2.0, sqrt(2.0), SQRT2); dotest("sqrt(%.1f)", 10.0, sqrt(10.0), SQRT10); @@ -61,6 +63,8 @@ testtrig() double x; extern double sin(), cos(), tan(), asin(), acos(), atan(), fabs(); + printf("testing sin, cos, tan, asin, acos, atan ... \n"); + dotest("sin(0)", 0.0, sin(0.0), SIN0); dotest("sin(pi/24)", M_PI/24 , sin(M_PI/24), SINPI_24); dotest("sin(pi/16)", M_PI/16 , sin(M_PI/16), SINPI_16); @@ -129,6 +133,7 @@ testexplog() extern double exp(), log(); double x; + printf("testing exp and log ...\n"); dotest("exp(%.2f)", -1.0, exp(-1.0), EXPMIN1); dotest("exp(%.2f)", -0.25, exp(-0.25), EXPMIN1_4); dotest("exp(%.2f)", 0.0, exp(0.0), EXP0); @@ -151,6 +156,7 @@ testgamma() double x, xfac; extern double gamma(), exp(); + printf("testing gamma ...\n"); for (x = 1.0, xfac = 1.0; x < 30.0; x += 1.0) { dotest("exp(gamma(%.2f))", x, exp(gamma(x)), xfac); xfac *= x; @@ -172,6 +178,8 @@ testbessel() extern char *sprintf(); char buf[100]; + printf("testing bessel ...\n"); + dotest("j0(pi/4)", M_PI_4, j0(M_PI_4), J0__PI_4); dotest("j0(pi/2)", M_PI_2, j0(M_PI_2), J0__PI_2); dotest("j1(pi/4)", M_PI_4, j1(M_PI_4), J1__PI_4);