dist/tests/tjn.c

38       mpfr_set_str (x, argv[3], 10, MPFR_RNDN);
39       mpfr_jn (x, atoi (argv[2]), x, MPFR_RNDN);
40       mpfr_out_str (stdout, 10, 10, x, MPFR_RNDN);
53   mpfr_jn (y, 17, x, MPFR_RNDN);
57   mpfr_jn (y, 17, x, MPFR_RNDN);
61   mpfr_jn (y, 17, x, MPFR_RNDN);
64   mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */
65   mpfr_jn (y, 0, x, MPFR_RNDN);
67   mpfr_jn (y, 17, x, MPFR_RNDN);
69   mpfr_jn (y, -17, x, MPFR_RNDN);
71   mpfr_jn (y, 42, x, MPFR_RNDN);
74   mpfr_set_ui (x, 0, MPFR_RNDN);
75   mpfr_neg (x, x, MPFR_RNDN); /* -0 */
76   mpfr_jn (y, 0, x, MPFR_RNDN);
78   mpfr_jn (y, 17, x, MPFR_RNDN);
80   mpfr_jn (y, -17, x, MPFR_RNDN);
82   mpfr_jn (y, 42, x, MPFR_RNDN);
88   mpfr_set_ui (x, 1, MPFR_RNDN);
89   mpfr_jn (y, 0, x, MPFR_RNDN);
93       printf ("Error in mpfr_jn for n=0, x=1, rnd=MPFR_RNDN\n");
99   mpfr_set_si (x, -1, MPFR_RNDN);
100   mpfr_jn (y, 0, x, MPFR_RNDN);
104       printf ("Error in mpfr_jn for n=0, x=-1, rnd=MPFR_RNDN\n");
110   mpfr_set_ui (x, 1, MPFR_RNDN);
111   mpfr_jn (y, 1, x, MPFR_RNDN);
115       printf ("Error in mpfr_jn for n=1, x=1, rnd=MPFR_RNDN\n");
121   mpfr_set_ui (x, 1, MPFR_RNDN);
122   mpfr_jn (y, 17, x, MPFR_RNDN);
126       printf ("Error in mpfr_jn for n=17, x=1, rnd=MPFR_RNDN\n");
132   mpfr_set_ui (x, 1, MPFR_RNDN);
133   mpfr_jn (y, 42, x, MPFR_RNDN);
137       printf ("Error in mpfr_jn for n=42, x=1, rnd=MPFR_RNDN\n");
143   mpfr_set_ui (x, 1, MPFR_RNDN);
144   mpfr_jn (y, -42, x, MPFR_RNDN);
148       printf ("Error in mpfr_jn for n=-42, x=1, rnd=MPFR_RNDN\n");
154   mpfr_set_si (x, -1, MPFR_RNDN);
155   mpfr_jn (y, 42, x, MPFR_RNDN);
159       printf ("Error in mpfr_jn for n=42, x=-1, rnd=MPFR_RNDN\n");
165   mpfr_set_si (x, -1, MPFR_RNDN);
166   mpfr_jn (y, -42, x, MPFR_RNDN);
170       printf ("Error in mpfr_jn for n=-42, x=-1, rnd=MPFR_RNDN\n");
176   mpfr_set_ui (x, 17, MPFR_RNDN);
177   mpfr_jn (y, 4, x, MPFR_RNDN);
181       printf ("Error in mpfr_jn for n=4, x=17, rnd=MPFR_RNDN\n");
187   mpfr_set_ui (x, 17, MPFR_RNDN);
188   mpfr_jn (y, 16, x, MPFR_RNDN);
192       printf ("Error in mpfr_jn for n=16, x=17, rnd=MPFR_RNDN\n");
198   mpfr_set_ui (x, 17, MPFR_RNDN);
199   mpfr_jn (y, 256, x, MPFR_RNDN);
203       printf ("Error in mpfr_jn for n=256, x=17, rnd=MPFR_RNDN\n");
209   mpfr_set_ui (x, 17, MPFR_RNDN);
210   mpfr_jn (y, 65536, x, MPFR_RNDN);
214       printf ("Error in mpfr_jn for n=65536, x=17, rnd=MPFR_RNDN\n");
220   mpfr_set_ui (x, 17, MPFR_RNDN);
221   mpfr_jn (y, 131072, x, MPFR_RNDN);
225       printf ("Error in mpfr_jn for n=131072, x=17, rnd=MPFR_RNDN\n");
231   mpfr_set_ui (x, 17, MPFR_RNDN);
232   mpfr_jn (y, 262144, x, MPFR_RNDN);
236       printf ("Error in mpfr_jn for n=262144, x=17, rnd=MPFR_RNDN\n");
242   mpfr_set_ui (x, 17, MPFR_RNDN);
243   mpfr_jn (y, 524288, x, MPFR_RNDN);
247       printf ("Error in mpfr_jn for n=524288, x=17, rnd=MPFR_RNDN\n");
257   mpfr_set_ui (x, 17, MPFR_RNDN);
258   mpfr_jn (y, n, x, MPFR_RNDN);
262       printf ("Error in mpfr_jn for n=%ld, x=17, rnd=MPFR_RNDN\n", n);
268   mpfr_set_si (x, -17, MPFR_RNDN);
269   mpfr_jn (y, n, x, MPFR_RNDN);
273       printf ("Error in mpfr_jn for n=%ld, x=-17, rnd=MPFR_RNDN\n", n);
279   mpfr_set_ui (x, 17, MPFR_RNDN);
280   mpfr_jn (y, -n, x, MPFR_RNDN);
284       printf ("Error in mpfr_jn for n=%ld, x=17, rnd=MPFR_RNDN\n", -n);
290   mpfr_set_si (x, -17, MPFR_RNDN);
291   mpfr_jn (y, -n, x, MPFR_RNDN);
295       printf ("Error in mpfr_jn for n=%ld, x=-17, rnd=MPFR_RNDN\n", -n);