diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 1999-06-25 13:01:20 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 1999-06-25 13:01:20 +0000 |
commit | 05b46ea57349880125de275af26c58d1f0304e96 (patch) | |
tree | 310b7b702af44112a0752e46d6612d96800e32e1 /tests/tget_str.c | |
parent | 9c39952768669cae26fed7acd18811fe7aae4d20 (diff) | |
download | mpfr-05b46ea57349880125de275af26c58d1f0304e96.tar.gz |
added pointer to exponent, removed test with sprintf
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@185 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tget_str.c')
-rw-r--r-- | tests/tget_str.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/tests/tget_str.c b/tests/tget_str.c index 676cb5cb0..10d9f2d26 100644 --- a/tests/tget_str.c +++ b/tests/tget_str.c @@ -31,24 +31,15 @@ double drand() check(d, rnd) double d; unsigned char rnd; { - mpfr_t x; char *str, str2[30]; int l, l2; + mpfr_t x; char *str, str2[30]; int l, l2; mp_exp_t e; mpfr_init2(x, 53); mpfr_set_d(x, d, rnd); - str = mpfr_get_str(NULL, NULL, 10, 5, x, rnd); + str = mpfr_get_str(NULL, &e, 10, 5, x, rnd); mpfr_set_machine_rnd_mode(rnd); sprintf(str2, "%1.4e", d); l2 = strlen(str2); l = strlen(str); - if (l!=l2) printf("l=%d l2=%d\n",l,l2); - if (str2[l2-3]=='-' && str2[l2-2]=='0' && str2[l2-1]=='0') - str2[l2-3]='+'; /* rule for sign of exponent 0 ? */ - if (strcmp(str, str2)) { - printf("Error in mpfr_get_str for d=%s=",str2); - print_double(d); - printf("\ngot %s\n", str); - exit(1); - } mpfr_clear(x); free(str); } |