/* treimref -- test file for mpc_realref and mpc_imagref. Copyright (C) 2009, 2012 INRIA This file is part of GNU MPC. GNU MPC 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 3 of the License, or (at your option) any later version. GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ . */ #include "mpc-tests.h" int main (void) { mpc_t z; test_start (); test_end (); mpc_init2 (z, 6); mpc_set_ui_ui (z, 17, 42, MPC_RNDNN); mpfr_set_ui (mpc_realref (z), 18, MPFR_RNDN); if (mpfr_get_ui (mpc_realref (z), MPFR_RNDN) != 18) { fprintf (stderr, "Error in mpfr_set_ui/mpc_realref\n"); exit (1); } mpfr_set_ui (mpc_imagref (z), 43, MPFR_RNDN); if (mpfr_get_ui (mpc_imagref (z), MPFR_RNDN) != 43) { fprintf (stderr, "Error in mpfr_set_ui/mpc_imagref\n"); exit (1); } mpc_clear (z); return 0; } |