Index: gcc/mpfr/tests/mpf_compat.h |
diff --git a/gcc/mpfr/tests/mpf_compat.h b/gcc/mpfr/tests/mpf_compat.h |
deleted file mode 100644 |
index 6479c4c94550ac02a6ae391c39145c95dbe839ad..0000000000000000000000000000000000000000 |
--- a/gcc/mpfr/tests/mpf_compat.h |
+++ /dev/null |
@@ -1,221 +0,0 @@ |
-/* Test compatibility mpf-mpfr. |
- |
-Copyright 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
-Contributed by the Arenaire and Cacao projects, INRIA. |
- |
-This file is part of the GNU MPFR Library. |
- |
-The GNU MPFR Library is free software; you can redistribute it and/or modify |
-it under the terms of the GNU Lesser General Public License as published by |
-the Free Software Foundation; either version 2.1 of the License, or (at your |
-option) any later version. |
- |
-The GNU MPFR Library is distributed in the hope that it will be useful, but |
-WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY |
-or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public |
-License for more details. |
- |
-You should have received a copy of the GNU Lesser General Public License |
-along with the GNU MPFR Library; see the file COPYING.LIB. If not, write to |
-the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, |
-MA 02110-1301, USA. */ |
- |
-#if defined (__cplusplus) |
-#include <cstdio> |
-#else |
-#include <stdio.h> |
-#endif |
-#include <stdlib.h> |
-#include <string.h> |
- |
-#include "gmp.h" |
-#include "mpfr.h" |
-#ifdef MPFR |
-#include "mpf2mpfr.h" |
-#endif |
- |
-int |
-main () |
-{ |
- unsigned long int prec; |
- unsigned long int prec2; |
- mpf_t x, y; |
- mpz_t z; |
- mpq_t q; |
- double d; |
- signed long int exp; |
- long l; |
- unsigned long u; |
- char *s; |
- int i; |
- FILE *f; |
- gmp_randstate_t state; |
- |
- /* Initialization Functions */ |
- prec = 53; |
- mpf_set_default_prec (prec); |
- prec2 = mpf_get_default_prec (); |
- if (prec2 < prec) |
- { |
- printf ("Error in get_default_prec: %lu < %lu\n", prec2, prec); |
- exit (1); |
- } |
- |
- mpf_init (y); |
- |
- mpf_init2 (x, prec); |
- prec2 = mpf_get_prec (x); |
- if (prec2 < prec) |
- { |
- printf ("Error in get_prec: %lu < %lu\n", prec2, prec); |
- mpf_clear (y); |
- mpf_clear (x); |
- exit (1); |
- } |
- |
- mpf_set_prec (x, 2 * prec); |
- prec2 = mpf_get_prec (x); |
- if (prec2 < 2 * prec) |
- { |
- printf ("Error in set_prec: %lu < %lu\n", prec2, 2 * prec); |
- mpf_clear (y); |
- mpf_clear (x); |
- exit (1); |
- } |
- |
- mpf_set_prec_raw (x, prec); |
- prec2 = mpf_get_prec (x); |
- if (prec2 < prec) |
- { |
- printf ("Error in set_prec_raw: %lu < %lu\n", prec2, prec); |
- mpf_clear (y); |
- mpf_clear (x); |
- exit (1); |
- } |
- |
- /* Assignment Functions */ |
- |
- mpf_set (y, x); |
- mpf_set_ui (x, 1); |
- mpf_set_si (x, -1); |
- mpf_set_d (x, 1.0); |
- |
- mpz_init_set_ui (z, 17); |
- mpf_set_z (x, z); |
- mpz_clear (z); |
- |
- mpq_init (q); |
- mpq_set_ui (q, 2, 3); |
- mpf_set_q (x, q); |
- mpq_clear (q); |
- |
- mpf_set_str (x, "3.1415e1", 10); |
- mpf_swap (x, y); |
- |
- /* Combined Initialization and Assignment Functions */ |
- |
- mpf_clear (x); |
- mpf_init_set (x, y); |
- mpf_clear (x); |
- mpf_init_set_ui (x, 17); |
- mpf_clear (x); |
- mpf_init_set_si (x, -17); |
- mpf_clear (x); |
- mpf_init_set_d (x, 17.0); |
- mpf_clear (x); |
- mpf_init_set_str (x, "3.1415e1", 10); |
- |
- /* Conversion Functions */ |
- |
- d = mpf_get_d (x); |
- d = mpf_get_d_2exp (&exp, x); |
- l = mpf_get_si (x); |
- u = mpf_get_ui (x); |
- s = mpf_get_str (NULL, &exp, 10, 10, x); |
- /* MPF doen't have mpf_free_str */ |
- mpfr_free_str (s); |
- |
- |
- /* Arithmetic Functions */ |
- |
- mpf_add (y, x, x); |
- mpf_add_ui (y, x, 1); |
- mpf_sub (y, x, x); |
- mpf_ui_sub (y, 1, x); |
- mpf_sub_ui (y, x, 1); |
- mpf_mul (y, x, x); |
- mpf_mul_ui (y, x, 17); |
- mpf_div (y, x, x); |
- mpf_ui_div (y, 17, x); |
- mpf_div_ui (y, x, 17); |
- mpf_sqrt (y, x); |
- mpf_sqrt_ui (y, 17); |
- mpf_pow_ui (y, x, 2); |
- mpf_neg (y, x); |
- mpf_abs (y, x); |
- mpf_mul_2exp (y, x, 17); |
- mpf_div_2exp (y, x, 17); |
- |
- /* Comparison Functions */ |
- |
- i = mpf_cmp (y, x); |
- i = mpf_cmp_d (y, 1.7); |
- i = mpf_cmp_ui (y, 17); |
- i = mpf_cmp_si (y, -17); |
- i = mpf_eq (y, x, 17); |
- mpf_reldiff (y, y, x); |
- i = mpf_sgn (x); |
- |
- /* Input and Output Functions */ |
- |
- f = fopen ("/dev/null", "w"); |
- if (f != NULL) |
- { |
- mpf_out_str (f, 10, 10, x); |
- fclose (f); |
- } |
- |
- mpf_set_prec (x, 15); |
- mpf_set_prec (y, 15); |
- /* We may use src_fopen instead of fopen, but it is defined |
- in mpfr-test, and not in mpfr.h and gmp.h, and we want |
- to test theses includes files. */ |
- f = fopen ("inp_str.data", "r"); |
- if (f != NULL) |
- { |
- i = mpf_inp_str (x, f, 10); |
- if ((i == 0) || mpf_cmp_ui (x, 31415)) |
- { |
- printf ("Error in reading 1st line from file inp_str.data\n"); |
- exit (1); |
- } |
- fclose (f); |
- } |
- |
- /* Miscellaneous Functions */ |
- |
- mpf_ceil (y, x); |
- mpf_floor (y, x); |
- mpf_trunc (y, x); |
- |
- i = mpf_integer_p (x); |
- |
- i = mpf_fits_ulong_p (x); |
- i = mpf_fits_slong_p (x); |
- i = mpf_fits_uint_p (x); |
- i = mpf_fits_sint_p (x); |
- i = mpf_fits_ushort_p (x); |
- i = mpf_fits_sshort_p (x); |
- |
- gmp_randinit (state, GMP_RAND_ALG_LC, 128); |
- mpf_urandomb (x, state, 10); |
- gmp_randclear (state); |
- |
- mpf_random2 (x, 17, 17); |
- |
- /* clear all variables */ |
- mpf_clear (y); |
- mpf_clear (x); |
- |
- return 0; |
-} |