vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
264 lines
6.9 KiB
C
264 lines
6.9 KiB
C
/* Test file for mpfr_nan_p, mpfr_inf_p, mpfr_number_p, mpfr_zero_p and
|
|
mpfr_regular_p.
|
|
|
|
Copyright 2001-2004, 2006-2025 Free Software Foundation, Inc.
|
|
Contributed by the Pascaline and Caramba 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 3 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.LESSER.
|
|
If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#include "mpfr-test.h"
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
mpfr_t x;
|
|
int i = 0, j = 0;
|
|
|
|
/* We need to check that when the function is implemented by a macro,
|
|
it behaves correctly. */
|
|
#define ARG (i++, VOIDP_CAST(x))
|
|
#define CHECK MPFR_ASSERTN (i == ++j)
|
|
|
|
tests_start_mpfr ();
|
|
|
|
mpfr_init (x);
|
|
|
|
#if 0
|
|
/* The following should yield a compilation error when the functions
|
|
are implemented as macros. Change 0 to 1 above in order to test. */
|
|
(void) (mpfr_nan_p (1L));
|
|
(void) (mpfr_inf_p (1L));
|
|
(void) (mpfr_number_p (1L));
|
|
(void) (mpfr_zero_p (1L));
|
|
(void) (mpfr_regular_p (1L));
|
|
#endif
|
|
|
|
#ifdef IGNORE_CPP_COMPAT
|
|
#pragma GCC diagnostic push
|
|
#pragma GCC diagnostic ignored "-Wc++-compat"
|
|
#endif
|
|
|
|
/* check +infinity gives non-zero for mpfr_inf_p only */
|
|
mpfr_set_ui (x, 1L, MPFR_RNDZ);
|
|
mpfr_div_ui (x, x, 0L, MPFR_RNDZ);
|
|
if (mpfr_nan_p (x) || (mpfr_nan_p) (x) || mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(+Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_inf_p (x) || !(mpfr_inf_p) (x) || !mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(+Inf) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_number_p (x) || (mpfr_number_p) (x) || mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(+Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_zero_p (x) || (mpfr_zero_p) (x) || mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_zero_p(+Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_regular_p (x) || (mpfr_regular_p) (x) || mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(+Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
/* same for -Inf */
|
|
mpfr_neg (x, x, MPFR_RNDN);
|
|
if (mpfr_nan_p (x) || (mpfr_nan_p) (x) || mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(-Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_inf_p (x) || !(mpfr_inf_p) (x) || !mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(-Inf) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_number_p (x) || (mpfr_number_p) (x) || mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(-Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_zero_p (x) || (mpfr_zero_p) (x) || mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_zero_p(-Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_regular_p (x) || (mpfr_regular_p) (x) || mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(-Inf) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
/* same for NaN */
|
|
mpfr_sub (x, x, x, MPFR_RNDN);
|
|
if (!mpfr_nan_p (x) || !(mpfr_nan_p) (x) || !mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(NaN) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_inf_p (x) || (mpfr_inf_p) (x) || mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(NaN) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_number_p (x) || (mpfr_number_p) (x) || mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(NaN) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_zero_p (x) || (mpfr_zero_p) (x) || mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(NaN) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_regular_p (x) || (mpfr_regular_p) (x) || mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(NaN) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
/* same for a regular number */
|
|
mpfr_set_ui (x, 1, MPFR_RNDN);
|
|
if (mpfr_nan_p (x) || (mpfr_nan_p) (x) || mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(1) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_inf_p (x) || (mpfr_inf_p) (x) || mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(1) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_number_p (x) || !(mpfr_number_p) (x) || !mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(1) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_zero_p (x) || (mpfr_zero_p) (x) || mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_zero_p(1) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_regular_p (x) || !(mpfr_regular_p) (x) || !mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(1) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
/* Same for +0 */
|
|
mpfr_set_ui (x, 0, MPFR_RNDN);
|
|
if (mpfr_nan_p (x) || (mpfr_nan_p) (x) || mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(+0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_inf_p (x) || (mpfr_inf_p) (x) || mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(+0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_number_p (x) || !(mpfr_number_p) (x) || !mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(+0) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_zero_p (x) || !(mpfr_zero_p) (x) || !mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_zero_p(+0) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_regular_p (x) || (mpfr_regular_p) (x) || mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(+0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
/* Same for -0 */
|
|
mpfr_set_ui (x, 0, MPFR_RNDN);
|
|
mpfr_neg (x, x, MPFR_RNDN);
|
|
if (mpfr_nan_p (x) || (mpfr_nan_p) (x) || mpfr_nan_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_nan_p(-0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_inf_p (x) || (mpfr_inf_p) (x) || mpfr_inf_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_inf_p(-0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_number_p (x) || !(mpfr_number_p) (x) || !mpfr_number_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_number_p(-0) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (!mpfr_zero_p (x) || !(mpfr_zero_p) (x) || !mpfr_zero_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_zero_p(-0) gives zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
if (mpfr_regular_p (x) || (mpfr_regular_p) (x) || mpfr_regular_p (ARG))
|
|
{
|
|
printf ("Error: mpfr_regular_p(-0) gives non-zero\n");
|
|
exit (1);
|
|
}
|
|
CHECK;
|
|
|
|
#ifdef IGNORE_CPP_COMPAT
|
|
#pragma GCC diagnostic pop
|
|
#endif
|
|
|
|
mpfr_clear (x);
|
|
|
|
tests_end_mpfr ();
|
|
return 0;
|
|
}
|