1 ///////////////////////////////////////////////////////////////
2 // Copyright Christopher Kormanyos 2002 - 2011.
3 // Copyright 2011 John Maddock. Distributed under the Boost
4 // Software License, Version 1.0. (See accompanying file
5 // LICENSE_1_0.txt or copy at https://www.boost.org/LICENSE_1_0.txt
7 // This work is based on an earlier work:
8 // "Algorithm 910: A Portable C++ Multiple-Precision System for Special-Function Calculations",
9 // in ACM TOMS, {VOL 37, ISSUE 4, (February 2011)} (C) ACM, 2011. http://doi.acm.org/10.1145/1916461.1916469
12 #define _SCL_SECURE_NO_WARNINGS
15 #include <boost/detail/lightweight_test.hpp>
16 #include <boost/array.hpp>
19 #include <boost/multiprecision/mpfr.hpp>
20 #include <boost/multiprecision/gmp.hpp>
24 using namespace boost::multiprecision;
26 // Test interconversions between GMP supported backends:
37 mpq_set_ui(mpq, 2u, 1u);
39 mpfr_set_ui(mpfr, 2u, GMP_RNDN);
41 BOOST_TEST(mpfr_float(mpf) == 2);
42 BOOST_TEST(mpfr_float_50(mpf) == 2);
43 BOOST_TEST(mpfr_float(mpz) == 2);
44 BOOST_TEST(mpfr_float_50(mpz) == 2);
45 BOOST_TEST(mpfr_float(mpq) == 2);
46 BOOST_TEST(mpfr_float_50(mpq) == 2);
47 BOOST_TEST(mpfr_float(mpfr) == 2);
48 BOOST_TEST(mpfr_float_50(mpfr) == 2);
81 BOOST_TEST(mpfr_float(f50) == 4);
82 BOOST_TEST(mpfr_float_50(f0) == 3);
96 BOOST_TEST(mpfr_float(iz) == 2);
97 BOOST_TEST(mpfr_float_50(iz) == 2);
98 BOOST_TEST(mpfr_float(rat) == 2);
99 BOOST_TEST(mpfr_float_50(rat) == 2);
100 BOOST_TEST(mpfr_float(gf) == 2);
101 BOOST_TEST(mpfr_float_50(gf) == 2);
104 // Conversions involving precision only:
106 mpfr_float::default_precision(30);
108 mpfr_float_100 f100(3);
110 mpfr_float f0b(f100);
111 BOOST_TEST(f0a.precision() == 30);
112 BOOST_TEST(f0b.precision() == 100);
114 BOOST_TEST(f0a == 3);
115 BOOST_TEST(f0a.precision() == 100); // precision preserved on assignment
118 BOOST_TEST(f100 == 2);
120 f50 = static_cast<mpfr_float_50>(f100);
127 return boost::report_errors();