diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-11-01 09:43:32 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2001-11-01 09:43:32 +0000 |
| commit | 8617b57e9dc4cf5a094de765061568efbcf82c44 (patch) | |
| tree | 4b71385b927e0da4ea89883e9afb6df777df6298 /tests/tpow3.c | |
| parent | 68a7e5fb233ce4489f59d48c731ba6966b929889 (diff) | |
| download | mpfr-8617b57e9dc4cf5a094de765061568efbcf82c44.tar.gz | |
fixed MLK's
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1454 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tpow3.c')
| -rw-r--r-- | tests/tpow3.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/tpow3.c b/tests/tpow3.c index 5e5393e90..56435e074 100644 --- a/tests/tpow3.c +++ b/tests/tpow3.c @@ -32,14 +32,13 @@ MA 02111-1307, USA. */ int main (int argc, char *argv[]) { - mpfr_t x, y,z,ax; + mpfr_t x, y, z, ax; long int iy; mpfr_init (x); mpfr_init (ax); mpfr_init2 (y,sizeof(unsigned long int)*CHAR_BIT); mpfr_init (z); - MPFR_SET_NAN(x); mpfr_random(y); mpfr_pow (z, x,y, GMP_RNDN); @@ -85,7 +84,7 @@ main (int argc, char *argv[]) if (MPFR_SIGN(y) < 0) MPFR_CHANGE_SIGN(y); mpfr_random(x); - mpfr_init2(ax,MPFR_PREC(x)); + mpfr_set_prec (ax, MPFR_PREC(x)); mpfr_abs(ax,x,GMP_RNDN); mpfr_pow (z, x,y, GMP_RNDN); if( !MPFR_IS_INF(z) && (mpfr_cmp_ui(ax,1) > 0) ) @@ -115,7 +114,7 @@ main (int argc, char *argv[]) if (MPFR_SIGN(y) > 0) MPFR_CHANGE_SIGN(y); mpfr_random(x); - mpfr_init2(ax,MPFR_PREC(x)); + mpfr_set_prec (ax, MPFR_PREC(x)); mpfr_abs(ax,x,GMP_RNDN); mpfr_pow (z, x,y, GMP_RNDN); mpfr_pow (z, x,y, GMP_RNDN); @@ -333,7 +332,7 @@ main (int argc, char *argv[]) { mp_prec_t prec, yprec; - mpfr_t x, y, z, t,s; + mpfr_t t, s; mp_rnd_t rnd; int inexact, compare, compare2; unsigned int n, err; @@ -342,10 +341,7 @@ main (int argc, char *argv[]) int p1=100; int N=100; - mpfr_init (x); mpfr_init (s); - mpfr_init (y); - mpfr_init (z); mpfr_init (t); /* generic test */ @@ -414,10 +410,14 @@ main (int argc, char *argv[]) } } + mpfr_clear (s); + mpfr_clear (t); } mpfr_clear (x); mpfr_clear (y); + mpfr_clear (z); + mpfr_clear (ax); return 0; } |