1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#include <stdio.h>
#include <stdlib.h>
#include "gmp.h"
#include "mpfr.h"
#include <time.h>
#if defined (hpux)
#define srandom srand48
#define random mrand48
#endif
int
main(int argc, char **argv)
{
mpfr_t x; unsigned long k, bd, nc; char *str, *str2;
if (argc==2) { /* tset_str <string> */
mpfr_init2(x, 53);
mpfr_set_str_raw(x, argv[1]);
printf("%1.20e\n", mpfr_get_d(x));
mpfr_clear(x);
return 0;
}
srandom(time(NULL));
if (argc > 1) { nc = atoi(argv[1]); } else { nc = 53; }
if (nc < 24) { nc = 24; }
bd = random()&8;
str2 = str = (char *) malloc (nc*sizeof(char));
if (bd)
{
for(k = 1; k <= bd; k++)
{ *(str2++) = (random() & 1) + '0'; }
}
else { *(str2++) = '0'; }
*(str2++) = '.';
for(k = 1; k < nc - 17 - bd; k++)
{
*(str2++) = '0' + (random() & 1);
}
*(str2++) = 'e';
sprintf(str2, "%d", random() - (1 << 30));
/* printf("%s\n", str); */
mpfr_init2(x, nc + 10);
mpfr_set_str_raw(x, str);
/* mpfr_print_raw(x); printf("\n"); */
mpfr_set_prec(x, 53);
mpfr_set_str_raw(x, "+110101100.01010000101101000000100111001000101011101110E00");
mpfr_set_str_raw(x, "1.0");
if (mpfr_get_d(x) != 1.0) {
fprintf(stderr, "Error in mpfr_set_str_raw for s=1.0\n"); exit(1);
}
mpfr_clear(x); free(str);
return 0;
}
|
