2011-09-10 04:16:10 +02:00
|
|
|
/* Copyright (C) 1997-2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
|
1999-10-19 08:29:27 +02:00
|
|
|
This file is part of the GNU C Library.
|
2002-04-19 16:52:54 +02:00
|
|
|
Contributed by Andreas Jaeger <aj@suse.de>, 1997.
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
2001-07-06 06:58:11 +02:00
|
|
|
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.
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
The GNU C 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
|
2001-07-06 06:58:11 +02:00
|
|
|
Lesser General Public License for more details.
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2001-07-06 06:58:11 +02:00
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
|
|
License along with the GNU C Library; if not, write to the Free
|
|
|
|
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
|
|
02111-1307 USA. */
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* Part of testsuite for libm.
|
|
|
|
|
|
|
|
This file is processed by a perl script. The resulting file has to
|
|
|
|
be included by a master file that defines:
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
Macros:
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(function): converts general function name (like cos) to
|
|
|
|
name with correct suffix (e.g. cosl or cosf)
|
|
|
|
MATHCONST(x): like FUNC but for constants (e.g convert 0.0 to 0.0L)
|
|
|
|
FLOAT: floating point type to test
|
|
|
|
- TEST_MSG: informal message to be displayed
|
|
|
|
CHOOSE(Clongdouble,Cdouble,Cfloat,Cinlinelongdouble,Cinlinedouble,Cinlinefloat):
|
|
|
|
chooses one of the parameters as delta for testing
|
|
|
|
equality
|
|
|
|
PRINTF_EXPR Floating point conversion specification to print a variable
|
|
|
|
of type FLOAT with printf. PRINTF_EXPR just contains
|
|
|
|
the specifier, not the percent and width arguments,
|
|
|
|
e.g. "f".
|
|
|
|
PRINTF_XEXPR Like PRINTF_EXPR, but print in hexadecimal format.
|
|
|
|
PRINTF_NEXPR Like PRINTF_EXPR, but print nice. */
|
|
|
|
|
|
|
|
/* This testsuite has currently tests for:
|
|
|
|
acos, acosh, asin, asinh, atan, atan2, atanh,
|
|
|
|
cbrt, ceil, copysign, cos, cosh, erf, erfc, exp, exp10, exp2, expm1,
|
|
|
|
fabs, fdim, floor, fma, fmax, fmin, fmod, fpclassify,
|
|
|
|
frexp, gamma, hypot,
|
|
|
|
ilogb, isfinite, isinf, isnan, isnormal,
|
|
|
|
isless, islessequal, isgreater, isgreaterequal, islessgreater, isunordered,
|
|
|
|
j0, j1, jn,
|
|
|
|
ldexp, lgamma, log, log10, log1p, log2, logb,
|
|
|
|
modf, nearbyint, nextafter,
|
|
|
|
pow, remainder, remquo, rint, lrint, llrint,
|
|
|
|
round, lround, llround,
|
|
|
|
scalb, scalbn, scalbln, signbit, sin, sincos, sinh, sqrt, tan, tanh, tgamma, trunc,
|
2003-01-07 19:54:08 +01:00
|
|
|
y0, y1, yn, significand
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
and for the following complex math functions:
|
|
|
|
cabs, cacos, cacosh, carg, casin, casinh, catan, catanh,
|
|
|
|
ccos, ccosh, cexp, clog, cpow, cproj, csin, csinh, csqrt, ctan, ctanh.
|
|
|
|
|
|
|
|
At the moment the following functions aren't tested:
|
2003-01-07 19:54:08 +01:00
|
|
|
drem, nan
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
Parameter handling is primitive in the moment:
|
|
|
|
--verbose=[0..3] for different levels of output:
|
|
|
|
0: only error count
|
|
|
|
1: basic report on failed tests (default)
|
|
|
|
2: full report on all tests
|
|
|
|
-v for full output (equals --verbose=3)
|
|
|
|
-u for generation of an ULPs file
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* "Philosophy":
|
|
|
|
|
|
|
|
This suite tests some aspects of the correct implementation of
|
|
|
|
mathematical functions in libm. Some simple, specific parameters
|
|
|
|
are tested for correctness but there's no exhaustive
|
|
|
|
testing. Handling of specific inputs (e.g. infinity, not-a-number)
|
|
|
|
is also tested. Correct handling of exceptions is checked
|
|
|
|
against. These implemented tests should check all cases that are
|
1999-10-31 18:37:43 +01:00
|
|
|
specified in ISO C99.
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
Exception testing: At the moment only divide-by-zero and invalid
|
|
|
|
exceptions are tested. Overflow/underflow and inexact exceptions
|
|
|
|
aren't checked at the moment.
|
|
|
|
|
|
|
|
NaN values: There exist signalling and quiet NaNs. This implementation
|
2002-04-19 16:52:54 +02:00
|
|
|
only uses quiet NaN as parameter but does not differenciate
|
1999-10-19 08:29:27 +02:00
|
|
|
between the two kinds of NaNs as result.
|
|
|
|
|
|
|
|
Inline functions: Inlining functions should give an improvement in
|
|
|
|
speed - but not in precission. The inlined functions return
|
|
|
|
reasonable values for a reasonable range of input values. The
|
|
|
|
result is not necessarily correct for all values and exceptions are
|
|
|
|
not correctly raised in all cases. Problematic input and return
|
|
|
|
values are infinity, not-a-number and minus zero. This suite
|
|
|
|
therefore does not check these specific inputs and the exception
|
|
|
|
handling for inlined mathematical functions - just the "reasonable"
|
|
|
|
values are checked.
|
|
|
|
|
|
|
|
Beware: The tests might fail for any of the following reasons:
|
|
|
|
- Tests are wrong
|
|
|
|
- Functions are wrong
|
|
|
|
- Floating Point Unit not working properly
|
|
|
|
- Compiler has errors
|
|
|
|
|
|
|
|
With e.g. gcc 2.7.2.2 the test for cexp fails because of a compiler error.
|
2001-05-15 10:00:22 +02:00
|
|
|
|
|
|
|
|
|
|
|
To Do: All parameter should be numbers that can be represented as
|
2002-06-20 10:33:17 +02:00
|
|
|
exact floating point values. Currently some values cannot be
|
|
|
|
represented exactly and therefore the result is not the expected
|
|
|
|
result. For this we will use 36 digits so that numbers can be
|
|
|
|
represented exactly. */
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
#ifndef _GNU_SOURCE
|
|
|
|
# define _GNU_SOURCE
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "libm-test-ulps.h"
|
|
|
|
#include <complex.h>
|
|
|
|
#include <math.h>
|
|
|
|
#include <float.h>
|
|
|
|
#include <fenv.h>
|
Update.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* iconv/loop.c (UNICODE_TAG_HANDLER): New macro.
* iconv/gconv_simple.c (__gconv_transform_internal_ascii): Invoke
UNICODE_TAG_HANDLER.
(__gconv_transform_internal_ucs2): Likewise.
(__gconv_transform_internal_ucs2reverse): Likewise.
* iconvdata/8bit-gap.c (BODY for TO_LOOP): Invoke UNICODE_TAG_HANDLER.
* iconvdata/8bit-generic.c (BODY for TO_LOOP): Likewise.
* iconvdata/ansi_x3.110.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5hkscs.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1255.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1258.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-jp.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-tw.c (BODY for TO_LOOP): Likewise.
* iconvdata/gbk.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm930.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm932.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm933.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm935.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm937.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm939.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm943.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso646.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso8859-1.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937-2.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn-ext.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/johab.c (BODY for TO_LOOP): Likewise.
* iconvdata/sjis.c (BODY for TO_LOOP): Likewise.
* iconvdata/t.61.c (BODY for TO_LOOP): Likewise.
* iconvdata/uhc.c (BODY for TO_LOOP): Likewise.
* iconvdata/unicode.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-jp.c (TAG_none, TAG_language, TAG_language_j,
TAG_language_ja, TAG_language_k, TAG_language_ko, TAG_language_z,
TAG_language_zh, CURRENT_TAG_MASK): New enum values.
(EMIT_SHIFT_TO_INIT): Don't emit an escape sequence if ASCII_set
is already selected but set2 or tag are set.
(conversion): New enum type.
(cvlist_t): New type.
(CVLIST, CVLIST_FIRST, CVLIST_REST): New macros.
(conversion_lists): New array.
(BODY for TO_LOOP): Keep track of Unicode 3.1 language tag. If "ja",
prefer conversion to Japanese character sets. If "zh", prefer
conversion to GB2312. If "ko", prefer conversion to KSC5601. Small
optimizations.
(INIT_PARAMS): Add tag.
(UPDATE_PARAMS): Add tag.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* locale/programs/locfile.c (write_locale_data): Before creat(),
unlink the file, to avoid crashing the processes that mmap it. Change
a double slash to a single slash. Free fname in case of error return.
2001-06-02 Jakub Jelinek <jakub@redhat.com>
* sysdeps/i386/fpu/s_frexpl.S (__frexpl): Mostly revert 2000-12-03
changes, do the special handling for denormal numbers, not for
normalized numbers (patch by <trevin@xmission.com>).
* math/test-misc.c (main): Test frexpl with denormal arguments.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (llround_test): Add two new llround tests.
* sysdeps/ieee754/ldbl-96/s_llroundl.c (__llroundl): Don't allow
overflow when rounding away from zero.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/Makefile (libm-calls): Add e_log2, w_log2, remove s_log2.
* math/math_private.h (__ieee754_log2, __ieee754_log2f,
__ieee754_log2l): New prototypes.
* sysdeps/generic/w_log2.c: New file.
* sysdeps/generic/w_log2f.c: New file.
* sysdeps/generic/w_log2l.c: New file.
* sysdeps/generic/s_log2l.c: Move...
* sysdeps/generic/e_log2l.c: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/k_standard.c (__kernel_standard): Handle log2(0)
and log2(x < 0).
* sysdeps/i386/fpu/s_log2.S: Move...
* sysdeps/i386/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/i386/fpu/s_log2f.S: Move...
* sysdeps/i386/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/i386/fpu/s_log2l.S: Move...
* sysdeps/i386/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/m68k/fpu/s_log2.S: Move...
* sysdeps/m68k/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/m68k/fpu/s_log2f.S: Move...
* sysdeps/m68k/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/m68k/fpu/s_log2l.S: Move...
* sysdeps/m68k/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/dbl-64/s_log2.c: Move...
* sysdeps/ieee754/dbl-64/e_log2.c: ...to here. Rename to
__ieee754_log2.
* sysdeps/ieee754/flt-32/s_log2f.c: Move...
* sysdeps/ieee754/flt-32/e_log2f.c: ...to here. Rename to
__ieee754_log2f.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_exp2.c (u_threshold): Lower threshold so that
even arguments which result in denormalized exp2 are accepted.
(__exp2): Arguments equal to u_threshold already result into
underflow.
* sysdeps/generic/w_exp2f.c (u_threshold, __exp2f): Likewise.
* sysdeps/generic/w_exp2l.c (u_threshold, __exp2l): Likewise.
* sysdeps/ieee754/dbl-64/e_exp2.c (__ieee754_exp2): Lomark was too
low, with corrected lowmark use greaterequal, not greater.
* sysdeps/ieee754/flt-32/e_exp2f.c (__ieee754_exp2f): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (ilogb_test): Test that ilogb(+-Inf) == INT_MAX.
* sysdeps/i386/fpu/s_ilogb.S (__ilogb): Return INT_MAX for +-Inf.
* sysdeps/i386/fpu/s_ilogbf.S (__ilogbf): Likewise.
* sysdeps/i386/fpu/s_ilogbl.S (__ilogbl): Likewise.
* sysdeps/ieee754/dbl-64/s_ilogb.c (__ilogb): Likewise.
* sysdeps/ieee754/flt-32/s_ilogbf.c (__ilogbf): Likewise.
* sysdeps/ieee754/ldbl-128/s_ilogbl.c (__ilogbl): Likewise.
* sysdeps/ieee754/ldbl-96/s_ilogbl.c (__ilogbl): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_coshl.c (__coshl): Test if finite argument
gave non-finite result instead of using constant in generic
version.
* sysdeps/generic/w_coshf.c (__coshf): Likewise.
* sysdeps/generic/w_cosh.c (__cosh): Likewise.
* sysdeps/generic/w_exp10.c (o_threshold, u_threshold): Remove.
(__exp10): Test if finite argument gave non-finite result.
* sysdeps/generic/w_exp10f.c (o_threshold, u_threshold, __exp10f):
Likewise.
* sysdeps/generic/w_exp10l.c (o_threshold, u_threshold, __exp10l):
Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-96/e_coshl.c (__ieee754_coshl): Fix
overflow threshold constant (log(LDBL_MAX)+M_LN2l).
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/programs/ld-ctype.c (idx_table): New struct type.
(idx_table_init, idx_table_get, idx_table_add): New functions.
(MAX_CHARNAMES_IDX): Remove macro.
(locale_ctype_t): Change type of charnames_idx field.
(ctype_startup): Change initialization of charnames_idx field.
(find_idx): Use idx_table_get and idx_table_add for speed.
* locale/programs/charmap.c (charmap_new_char): Fix ucs4 value
computation of characters in a range.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/gb18030.c (__fourbyte_to_ucs1): Add mappings for <U03F4>,
<U03F5>.
(__ucs_to_gb18030_tab1): Likewise.
(BODY for FROM_LOOP): Add mapping for <U00010000>..<U0010FFFF>.
(BODY for TO_LOOP): Likewise.
* iconvdata/tst-table-charmap.sh: Update for charmaps containing
<U00xxxxxx> syntax.
* iconvdata/tst-table-from.c (bmp_only): New variable.
(utf8_decode): If bmp_only, don't return characters outside Unicode
plane 0.
(main): When testing UTF-8 or GB18030, set bmp_only to 1. Don't print
a conversion line if utf8_decode returns NULL.
* iconvdata/tst-table-to.c (main): When testing encodings other than
UTF-8 and GB18030, loop upto U+30000 instead of U+10000. Use UTF-8
instead of UCS-2 as input.
* iconvdata/tst-table.sh: For GB18030, use only the part < 0x10000
of the charmap.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/cns11643l1.c: Update to Unicode 3.1.
(__cns11643l1_to_ucs4_tab): Regenerated.
(__cns11643l1_from_ucs4_tab12): Regenerated.
* iconvdata/cns11643.c: Update to Unicode 3.1.
(__cns11643l14_to_ucs4_tab): Remove array.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New arrays.
(__cns11643_from_ucs4p0_tab): Renamed from __cns11643_from_ucs4_tab.
(__cns11643_from_ucs4p2_tab): New array.
* iconvdata/cns11643.h (__cns11643l14_to_ucs4_tab): Remove declaration.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New declarations.
(cns11643_to_ucs4): Treat planes 3, 4, 5, 6, 7, 15 instead of 14.
(__cns11643_from_ucs4_tab): Remove declaration.
(__cns11643_from_ucs4p0_tab, __cns11643_from_ucs4p2_tab): New
declarations.
(ucs4_to_cns11643): Update for new arrays. Treat U+3400..U+4DFF and
U+20000..U+2A6D6.
* iconvdata/cns11643l2.h (__cns11643_from_ucs4_tab): Remove
declaration.
(__cns11643_from_ucs4p0_tab): New declaration.
(ucs4_to_cns11643l2): Update for new arrays.
* iconvdata/iso-2022-cn-ext.c (BODY for FROM_LOOP): Handle planes
3 to 7.
(BODY for TO_LOOP): Handle planes 3 to 7, instead of plane 14.
* iconvdata/EUC-TW.irreversible: New file.
* iconvdata/tst-table.sh: Use it.
* iconvdata/Makefile (distribute): Add CP1255.irreversible,
CP1258.irreversible, EUC-TW.irreversible.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/C-translit.h.in: Add transliterations for new Unicode 3.1
mathematical symbols.
2001-06-06 14:55:46 +02:00
|
|
|
#include <limits.h>
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
#include <errno.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdio.h>
|
2000-06-21 07:54:40 +02:00
|
|
|
#include <string.h>
|
1999-10-19 08:29:27 +02:00
|
|
|
#include <argp.h>
|
|
|
|
|
|
|
|
/* Possible exceptions */
|
|
|
|
#define NO_EXCEPTION 0x0
|
|
|
|
#define INVALID_EXCEPTION 0x1
|
|
|
|
#define DIVIDE_BY_ZERO_EXCEPTION 0x2
|
|
|
|
/* The next flags signals that those exceptions are allowed but not required. */
|
|
|
|
#define INVALID_EXCEPTION_OK 0x4
|
|
|
|
#define DIVIDE_BY_ZERO_EXCEPTION_OK 0x8
|
|
|
|
#define EXCEPTIONS_OK INVALID_EXCEPTION_OK+DIVIDE_BY_ZERO_EXCEPTION_OK
|
|
|
|
/* Some special test flags, passed togther with exceptions. */
|
|
|
|
#define IGNORE_ZERO_INF_SIGN 0x10
|
|
|
|
|
|
|
|
/* Various constants (we must supply them precalculated for accuracy). */
|
Update.
2000-10-28 Jes Sorensen <jes@linuxcare.com>
* sysdeps/unix/sysv/linux/ia64/Versions: Export ioperm, iopl, inb,
inw, inl, _inb, _inw, _inl, outb, outw, outl, _outb, _outw,
_outl. Reported by Bill Nottingham.
2000-04-06 Andreas Schwab <schwab@suse.de>
* sysdeps/ia64/dl-machine.h (TRAMPOLINE_TEMPLATE): Save and
restore register r8 for functions that return a structure.
2000-10-12 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_PI_6l, M_E2l, M_E3l, M_2_SQRT_PIl,
M_SQRT_PIl): Increase precision.
(cbrt_test): If cbrt is not implemented, don't test it.
Add L suffix to double constants in results which differ from their
L suffixed counterparts.
(exp10_test, fmod_test, frexp_test, hypot_test, sqrt_test): Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Update.
2000-10-11 Jakub Jelinek <jakub@redhat.com>
* inet/rexec.c (rexec_af): Convert rport to host order before
passing it to snprintf.
2000-10-14 Ulrich Drepper <drepper@redhat.com>
* sysdeps/gnu/netinet/tcp.h: Use u_intXX_t types instead of
uintXX_t since this is what <sys/types.h> defines and we include
this header. Reported by Bernhard Rosenkraenzer <bero@redhat.de>.
* intl/localealias.c (read_alias_file): Update string pointers
in map[] if realloc() changed the values.
Patch by Jakub Jelinek <jakub@redhat.com>.
* manual/stdio.texi: Update printf extension documentation after
z became a valid modifier.
Patch by Joseph S. Myers <jsm28@cam.ac.uk>.
* timezone/africa: Update from tzcode2000g and tzdata2000g.
* timezone/asia: Likewise.
* timezone/australasia: Likewise.
* timezone/backward: Likewise.
* timezone/europe: Likewise.
* timezone/iso3166.tab: Likewise.
* timezone/northamerica: Likewise.
* timezone/southamerica: Likewise.
* timezone/zone.tab: Likewise.
2000-10-15 04:17:30 +02:00
|
|
|
#define M_PI_6l .52359877559829887307710723054658383L
|
|
|
|
#define M_E2l 7.389056098930650227230427460575008L
|
|
|
|
#define M_E3l 20.085536923187667740928529654581719L
|
|
|
|
#define M_2_SQRT_PIl 3.5449077018110320545963349666822903L /* 2 sqrt (M_PIl) */
|
|
|
|
#define M_SQRT_PIl 1.7724538509055160272981674833411451L /* sqrt (M_PIl) */
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
#define M_LOG_SQRT_PIl 0.57236494292470008707171367567652933L /* log(sqrt(M_PIl)) */
|
|
|
|
#define M_LOG_2_SQRT_PIl 1.265512123484645396488945797134706L /* log(2*sqrt(M_PIl)) */
|
1999-10-19 08:29:27 +02:00
|
|
|
#define M_PI_34l (M_PIl - M_PI_4l) /* 3*pi/4 */
|
|
|
|
#define M_PI_34_LOG10El (M_PIl - M_PI_4l) * M_LOG10El
|
|
|
|
#define M_PI2_LOG10El M_PI_2l * M_LOG10El
|
|
|
|
#define M_PI4_LOG10El M_PI_4l * M_LOG10El
|
|
|
|
#define M_PI_LOG10El M_PIl * M_LOG10El
|
2005-10-13 21:08:37 +02:00
|
|
|
#define M_SQRT_2_2 0.70710678118654752440084436210484903L /* sqrt (2) / 2 */
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
static FILE *ulps_file; /* File to document difference. */
|
|
|
|
static int output_ulps; /* Should ulps printed? */
|
|
|
|
|
|
|
|
static int noErrors; /* number of errors */
|
|
|
|
static int noTests; /* number of tests (without testing exceptions) */
|
|
|
|
static int noExcTests; /* number of tests for exception flags */
|
|
|
|
static int noXFails; /* number of expected failures. */
|
|
|
|
static int noXPasses; /* number of unexpected passes. */
|
|
|
|
|
|
|
|
static int verbose;
|
|
|
|
static int output_max_error; /* Should the maximal errors printed? */
|
|
|
|
static int output_points; /* Should the single function results printed? */
|
1999-10-29 19:38:14 +02:00
|
|
|
static int ignore_max_ulp; /* Should we ignore max_ulp? */
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
static FLOAT minus_zero, plus_zero;
|
2004-07-20 09:06:48 +02:00
|
|
|
static FLOAT plus_infty, minus_infty, nan_value, max_value, min_value;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
static FLOAT max_error, real_max_error, imag_max_error;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
|
|
|
|
#define BUILD_COMPLEX(real, imag) \
|
|
|
|
({ __complex__ FLOAT __retval; \
|
|
|
|
__real__ __retval = (real); \
|
|
|
|
__imag__ __retval = (imag); \
|
|
|
|
__retval; })
|
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
#define BUILD_COMPLEX_INT(real, imag) \
|
|
|
|
({ __complex__ int __retval; \
|
|
|
|
__real__ __retval = (real); \
|
|
|
|
__imag__ __retval = (imag); \
|
|
|
|
__retval; })
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
#define MANT_DIG CHOOSE ((LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1), \
|
2011-10-07 21:14:06 +02:00
|
|
|
(LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1))
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
static void
|
|
|
|
init_max_error (void)
|
|
|
|
{
|
|
|
|
max_error = 0;
|
1999-10-20 21:22:24 +02:00
|
|
|
real_max_error = 0;
|
|
|
|
imag_max_error = 0;
|
2000-10-01 00:03:51 +02:00
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
1999-10-20 21:22:24 +02:00
|
|
|
set_max_error (FLOAT current, FLOAT *curr_max_error)
|
1999-10-19 08:29:27 +02:00
|
|
|
{
|
1999-10-20 21:22:24 +02:00
|
|
|
if (current > *curr_max_error)
|
|
|
|
*curr_max_error = current;
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Should the message print to screen? This depends on the verbose flag,
|
|
|
|
and the test status. */
|
|
|
|
static int
|
|
|
|
print_screen (int ok, int xfail)
|
|
|
|
{
|
|
|
|
if (output_points
|
|
|
|
&& (verbose > 1
|
1999-10-25 00:04:52 +02:00
|
|
|
|| (verbose == 1 && ok == xfail)))
|
1999-10-19 08:29:27 +02:00
|
|
|
return 1;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Should the message print to screen? This depends on the verbose flag,
|
|
|
|
and the test status. */
|
|
|
|
static int
|
|
|
|
print_screen_max_error (int ok, int xfail)
|
|
|
|
{
|
|
|
|
if (output_max_error
|
|
|
|
&& (verbose > 1
|
|
|
|
|| ((verbose == 1) && (ok == xfail))))
|
|
|
|
return 1;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Update statistic counters. */
|
|
|
|
static void
|
|
|
|
update_stats (int ok, int xfail)
|
|
|
|
{
|
|
|
|
++noTests;
|
|
|
|
if (ok && xfail)
|
|
|
|
++noXPasses;
|
|
|
|
else if (!ok && xfail)
|
|
|
|
++noXFails;
|
|
|
|
else if (!ok && !xfail)
|
|
|
|
++noErrors;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_ulps (const char *test_name, FLOAT ulp)
|
|
|
|
{
|
|
|
|
if (output_ulps)
|
|
|
|
{
|
|
|
|
fprintf (ulps_file, "Test \"%s\":\n", test_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
|
1999-10-19 08:29:27 +02:00
|
|
|
CHOOSE("ldouble", "double", "float",
|
2001-10-18 13:46:36 +02:00
|
|
|
"ildouble", "idouble", "ifloat"),
|
|
|
|
FUNC(ceil) (ulp));
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_function_ulps (const char *function_name, FLOAT ulp)
|
|
|
|
{
|
|
|
|
if (output_ulps)
|
|
|
|
{
|
1999-10-20 21:22:24 +02:00
|
|
|
fprintf (ulps_file, "Function: \"%s\":\n", function_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
|
1999-10-19 08:29:27 +02:00
|
|
|
CHOOSE("ldouble", "double", "float",
|
2001-10-18 13:46:36 +02:00
|
|
|
"ildouble", "idouble", "ifloat"),
|
|
|
|
FUNC(ceil) (ulp));
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
static void
|
|
|
|
print_complex_function_ulps (const char *function_name, FLOAT real_ulp,
|
|
|
|
FLOAT imag_ulp)
|
|
|
|
{
|
|
|
|
if (output_ulps)
|
|
|
|
{
|
|
|
|
if (real_ulp != 0.0)
|
|
|
|
{
|
|
|
|
fprintf (ulps_file, "Function: Real part of \"%s\":\n", function_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
|
1999-10-20 21:22:24 +02:00
|
|
|
CHOOSE("ldouble", "double", "float",
|
2001-10-18 13:46:36 +02:00
|
|
|
"ildouble", "idouble", "ifloat"),
|
|
|
|
FUNC(ceil) (real_ulp));
|
1999-10-20 21:22:24 +02:00
|
|
|
}
|
|
|
|
if (imag_ulp != 0.0)
|
|
|
|
{
|
|
|
|
fprintf (ulps_file, "Function: Imaginary part of \"%s\":\n", function_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
|
1999-10-20 21:22:24 +02:00
|
|
|
CHOOSE("ldouble", "double", "float",
|
2001-10-18 13:46:36 +02:00
|
|
|
"ildouble", "idouble", "ifloat"),
|
|
|
|
FUNC(ceil) (imag_ulp));
|
1999-10-20 21:22:24 +02:00
|
|
|
}
|
1999-10-25 00:04:52 +02:00
|
|
|
|
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* Test if Floating-Point stack hasn't changed */
|
|
|
|
static void
|
|
|
|
fpstack_test (const char *test_name)
|
|
|
|
{
|
|
|
|
#ifdef i386
|
|
|
|
static int old_stack;
|
|
|
|
int sw;
|
|
|
|
|
|
|
|
asm ("fnstsw" : "=a" (sw));
|
|
|
|
sw >>= 11;
|
|
|
|
sw &= 7;
|
|
|
|
|
|
|
|
if (sw != old_stack)
|
|
|
|
{
|
|
|
|
printf ("FP-Stack wrong after test %s (%d, should be %d)\n",
|
|
|
|
test_name, sw, old_stack);
|
|
|
|
++noErrors;
|
|
|
|
old_stack = sw;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_max_error (const char *func_name, FLOAT allowed, int xfail)
|
|
|
|
{
|
|
|
|
int ok = 0;
|
|
|
|
|
1999-10-29 19:38:14 +02:00
|
|
|
if (max_error == 0.0 || (max_error <= allowed && !ignore_max_ulp))
|
1999-10-19 08:29:27 +02:00
|
|
|
{
|
|
|
|
ok = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!ok)
|
|
|
|
print_function_ulps (func_name, max_error);
|
|
|
|
|
|
|
|
|
|
|
|
if (print_screen_max_error (ok, xfail))
|
|
|
|
{
|
1999-10-20 21:22:24 +02:00
|
|
|
printf ("Maximal error of `%s'\n", func_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
printf (" is : %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (max_error));
|
|
|
|
printf (" accepted: %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (allowed));
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
static void
|
|
|
|
print_complex_max_error (const char *func_name, __complex__ FLOAT allowed,
|
|
|
|
__complex__ int xfail)
|
|
|
|
{
|
|
|
|
int ok = 0;
|
|
|
|
|
2001-10-18 13:46:36 +02:00
|
|
|
if ((real_max_error == 0 && imag_max_error == 0)
|
|
|
|
|| (real_max_error <= __real__ allowed
|
|
|
|
&& imag_max_error <= __imag__ allowed
|
|
|
|
&& !ignore_max_ulp))
|
1999-10-20 21:22:24 +02:00
|
|
|
{
|
|
|
|
ok = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!ok)
|
|
|
|
print_complex_function_ulps (func_name, real_max_error, imag_max_error);
|
|
|
|
|
|
|
|
|
|
|
|
if (print_screen_max_error (ok, xfail))
|
|
|
|
{
|
|
|
|
printf ("Maximal error of real part of: %s\n", func_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
printf (" is : %.0" PRINTF_NEXPR " ulp\n",
|
|
|
|
FUNC(ceil) (real_max_error));
|
|
|
|
printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
|
|
|
|
FUNC(ceil) (__real__ allowed));
|
1999-10-20 21:22:24 +02:00
|
|
|
printf ("Maximal error of imaginary part of: %s\n", func_name);
|
2001-10-18 13:46:36 +02:00
|
|
|
printf (" is : %.0" PRINTF_NEXPR " ulp\n",
|
|
|
|
FUNC(ceil) (imag_max_error));
|
|
|
|
printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
|
|
|
|
FUNC(ceil) (__imag__ allowed));
|
1999-10-20 21:22:24 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
/* Test whether a given exception was raised. */
|
|
|
|
static void
|
|
|
|
test_single_exception (const char *test_name,
|
|
|
|
int exception,
|
|
|
|
int exc_flag,
|
|
|
|
int fe_flag,
|
|
|
|
const char *flag_name)
|
|
|
|
{
|
|
|
|
#ifndef TEST_INLINE
|
|
|
|
int ok = 1;
|
|
|
|
if (exception & exc_flag)
|
|
|
|
{
|
|
|
|
if (fetestexcept (fe_flag))
|
|
|
|
{
|
|
|
|
if (print_screen (1, 0))
|
|
|
|
printf ("Pass: %s: Exception \"%s\" set\n", test_name, flag_name);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
ok = 0;
|
|
|
|
if (print_screen (0, 0))
|
|
|
|
printf ("Failure: %s: Exception \"%s\" not set\n",
|
|
|
|
test_name, flag_name);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (fetestexcept (fe_flag))
|
|
|
|
{
|
|
|
|
ok = 0;
|
|
|
|
if (print_screen (0, 0))
|
|
|
|
printf ("Failure: %s: Exception \"%s\" set\n",
|
|
|
|
test_name, flag_name);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (print_screen (1, 0))
|
|
|
|
printf ("%s: Exception \"%s\" not set\n", test_name,
|
|
|
|
flag_name);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!ok)
|
|
|
|
++noErrors;
|
|
|
|
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Test whether exceptions given by EXCEPTION are raised. Ignore thereby
|
|
|
|
allowed but not required exceptions.
|
|
|
|
*/
|
|
|
|
static void
|
|
|
|
test_exceptions (const char *test_name, int exception)
|
|
|
|
{
|
|
|
|
++noExcTests;
|
|
|
|
#ifdef FE_DIVBYZERO
|
|
|
|
if ((exception & DIVIDE_BY_ZERO_EXCEPTION_OK) == 0)
|
|
|
|
test_single_exception (test_name, exception,
|
|
|
|
DIVIDE_BY_ZERO_EXCEPTION, FE_DIVBYZERO,
|
|
|
|
"Divide by zero");
|
|
|
|
#endif
|
|
|
|
#ifdef FE_INVALID
|
|
|
|
if ((exception & INVALID_EXCEPTION_OK) == 0)
|
|
|
|
test_single_exception (test_name, exception, INVALID_EXCEPTION, FE_INVALID,
|
|
|
|
"Invalid operation");
|
|
|
|
#endif
|
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
1999-10-20 21:22:24 +02:00
|
|
|
check_float_internal (const char *test_name, FLOAT computed, FLOAT expected,
|
|
|
|
FLOAT max_ulp, int xfail, int exceptions,
|
|
|
|
FLOAT *curr_max_error)
|
1999-10-19 08:29:27 +02:00
|
|
|
{
|
|
|
|
int ok = 0;
|
|
|
|
int print_diff = 0;
|
|
|
|
FLOAT diff = 0;
|
|
|
|
FLOAT ulp = 0;
|
|
|
|
|
|
|
|
test_exceptions (test_name, exceptions);
|
|
|
|
if (isnan (computed) && isnan (expected))
|
|
|
|
ok = 1;
|
|
|
|
else if (isinf (computed) && isinf (expected))
|
|
|
|
{
|
|
|
|
/* Test for sign of infinities. */
|
2001-07-16 23:31:43 +02:00
|
|
|
if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
|
|
|
|
&& signbit (computed) != signbit (expected))
|
1999-10-19 08:29:27 +02:00
|
|
|
{
|
|
|
|
ok = 0;
|
|
|
|
printf ("infinity has wrong sign.\n");
|
|
|
|
}
|
|
|
|
else
|
|
|
|
ok = 1;
|
|
|
|
}
|
|
|
|
/* Don't calc ulp for NaNs or infinities. */
|
|
|
|
else if (isinf (computed) || isnan (computed) || isinf (expected) || isnan (expected))
|
|
|
|
ok = 0;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
diff = FUNC(fabs) (computed - expected);
|
2007-10-28 02:14:40 +01:00
|
|
|
switch (fpclassify (expected))
|
|
|
|
{
|
|
|
|
case FP_ZERO:
|
|
|
|
/* ilogb (0) isn't allowed. */
|
|
|
|
ulp = diff / FUNC(ldexp) (1.0, - MANT_DIG);
|
|
|
|
break;
|
|
|
|
case FP_NORMAL:
|
|
|
|
ulp = diff / FUNC(ldexp) (1.0, FUNC(ilogb) (expected) - MANT_DIG);
|
|
|
|
break;
|
|
|
|
case FP_SUBNORMAL:
|
|
|
|
ulp = (FUNC(ldexp) (diff, MANT_DIG)
|
|
|
|
/ FUNC(ldexp) (1.0, FUNC(ilogb) (expected)));
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
/* It should never happen. */
|
|
|
|
abort ();
|
|
|
|
break;
|
|
|
|
}
|
1999-10-20 21:22:24 +02:00
|
|
|
set_max_error (ulp, curr_max_error);
|
1999-10-19 08:29:27 +02:00
|
|
|
print_diff = 1;
|
2001-07-16 23:31:43 +02:00
|
|
|
if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
|
|
|
|
&& computed == 0.0 && expected == 0.0
|
|
|
|
&& signbit(computed) != signbit (expected))
|
1999-10-25 21:49:49 +02:00
|
|
|
ok = 0;
|
2006-01-28 01:15:15 +01:00
|
|
|
else if (ulp <= 0.5 || (ulp <= max_ulp && !ignore_max_ulp))
|
1999-10-19 08:29:27 +02:00
|
|
|
ok = 1;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
ok = 0;
|
|
|
|
print_ulps (test_name, ulp);
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
if (print_screen (ok, xfail))
|
|
|
|
{
|
|
|
|
if (!ok)
|
|
|
|
printf ("Failure: ");
|
|
|
|
printf ("Test: %s\n", test_name);
|
|
|
|
printf ("Result:\n");
|
|
|
|
printf (" is: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR "\n",
|
|
|
|
computed, computed);
|
|
|
|
printf (" should be: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR "\n",
|
|
|
|
expected, expected);
|
|
|
|
if (print_diff)
|
|
|
|
{
|
|
|
|
printf (" difference: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR
|
|
|
|
"\n", diff, diff);
|
|
|
|
printf (" ulp : % .4" PRINTF_NEXPR "\n", ulp);
|
|
|
|
printf (" max.ulp : % .4" PRINTF_NEXPR "\n", max_ulp);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
|
|
|
|
fpstack_test (test_name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
1999-10-20 21:22:24 +02:00
|
|
|
check_float (const char *test_name, FLOAT computed, FLOAT expected,
|
|
|
|
FLOAT max_ulp, int xfail, int exceptions)
|
|
|
|
{
|
|
|
|
check_float_internal (test_name, computed, expected, max_ulp, xfail,
|
|
|
|
exceptions, &max_error);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
check_complex (const char *test_name, __complex__ FLOAT computed,
|
|
|
|
__complex__ FLOAT expected,
|
|
|
|
__complex__ FLOAT max_ulp, __complex__ int xfail,
|
|
|
|
int exception)
|
1999-10-19 08:29:27 +02:00
|
|
|
{
|
1999-10-20 21:22:24 +02:00
|
|
|
FLOAT part_comp, part_exp, part_max_ulp;
|
|
|
|
int part_xfail;
|
1999-10-19 08:29:27 +02:00
|
|
|
char str[200];
|
|
|
|
|
|
|
|
sprintf (str, "Real part of: %s", test_name);
|
|
|
|
part_comp = __real__ computed;
|
|
|
|
part_exp = __real__ expected;
|
1999-10-20 21:22:24 +02:00
|
|
|
part_max_ulp = __real__ max_ulp;
|
|
|
|
part_xfail = __real__ xfail;
|
1999-10-25 00:04:52 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
|
|
|
|
exception, &real_max_error);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 05:20:31 +02:00
|
|
|
sprintf (str, "Imaginary part of: %s", test_name);
|
1999-10-19 08:29:27 +02:00
|
|
|
part_comp = __imag__ computed;
|
|
|
|
part_exp = __imag__ expected;
|
1999-10-20 21:22:24 +02:00
|
|
|
part_max_ulp = __imag__ max_ulp;
|
|
|
|
part_xfail = __imag__ xfail;
|
1999-10-25 00:04:52 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
/* Don't check again for exceptions, just pass through the
|
|
|
|
zero/inf sign test. */
|
1999-10-20 21:22:24 +02:00
|
|
|
check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
|
|
|
|
exception & IGNORE_ZERO_INF_SIGN,
|
|
|
|
&imag_max_error);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Check that computed and expected values are equal (int values). */
|
|
|
|
static void
|
|
|
|
check_int (const char *test_name, int computed, int expected, int max_ulp,
|
|
|
|
int xfail, int exceptions)
|
|
|
|
{
|
|
|
|
int diff = computed - expected;
|
|
|
|
int ok = 0;
|
|
|
|
|
|
|
|
test_exceptions (test_name, exceptions);
|
|
|
|
noTests++;
|
|
|
|
if (abs (diff) <= max_ulp)
|
|
|
|
ok = 1;
|
|
|
|
|
|
|
|
if (!ok)
|
|
|
|
print_ulps (test_name, diff);
|
|
|
|
|
|
|
|
if (print_screen (ok, xfail))
|
|
|
|
{
|
|
|
|
if (!ok)
|
|
|
|
printf ("Failure: ");
|
|
|
|
printf ("Test: %s\n", test_name);
|
|
|
|
printf ("Result:\n");
|
|
|
|
printf (" is: %d\n", computed);
|
|
|
|
printf (" should be: %d\n", expected);
|
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
fpstack_test (test_name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Check that computed and expected values are equal (long int values). */
|
|
|
|
static void
|
|
|
|
check_long (const char *test_name, long int computed, long int expected,
|
|
|
|
long int max_ulp, int xfail, int exceptions)
|
|
|
|
{
|
|
|
|
long int diff = computed - expected;
|
|
|
|
int ok = 0;
|
|
|
|
|
|
|
|
test_exceptions (test_name, exceptions);
|
|
|
|
noTests++;
|
|
|
|
if (labs (diff) <= max_ulp)
|
|
|
|
ok = 1;
|
|
|
|
|
|
|
|
if (!ok)
|
|
|
|
print_ulps (test_name, diff);
|
|
|
|
|
|
|
|
if (print_screen (ok, xfail))
|
|
|
|
{
|
|
|
|
if (!ok)
|
|
|
|
printf ("Failure: ");
|
|
|
|
printf ("Test: %s\n", test_name);
|
|
|
|
printf ("Result:\n");
|
|
|
|
printf (" is: %ld\n", computed);
|
|
|
|
printf (" should be: %ld\n", expected);
|
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
fpstack_test (test_name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Check that computed value is true/false. */
|
|
|
|
static void
|
|
|
|
check_bool (const char *test_name, int computed, int expected,
|
|
|
|
long int max_ulp, int xfail, int exceptions)
|
|
|
|
{
|
|
|
|
int ok = 0;
|
|
|
|
|
|
|
|
test_exceptions (test_name, exceptions);
|
|
|
|
noTests++;
|
|
|
|
if ((computed == 0) == (expected == 0))
|
|
|
|
ok = 1;
|
|
|
|
|
|
|
|
if (print_screen (ok, xfail))
|
|
|
|
{
|
|
|
|
if (!ok)
|
|
|
|
printf ("Failure: ");
|
|
|
|
printf ("Test: %s\n", test_name);
|
|
|
|
printf ("Result:\n");
|
|
|
|
printf (" is: %d\n", computed);
|
|
|
|
printf (" should be: %d\n", expected);
|
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
fpstack_test (test_name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* check that computed and expected values are equal (long int values) */
|
|
|
|
static void
|
|
|
|
check_longlong (const char *test_name, long long int computed,
|
|
|
|
long long int expected,
|
|
|
|
long long int max_ulp, int xfail,
|
|
|
|
int exceptions)
|
|
|
|
{
|
|
|
|
long long int diff = computed - expected;
|
|
|
|
int ok = 0;
|
|
|
|
|
|
|
|
test_exceptions (test_name, exceptions);
|
|
|
|
noTests++;
|
|
|
|
if (llabs (diff) <= max_ulp)
|
|
|
|
ok = 1;
|
|
|
|
|
|
|
|
if (!ok)
|
|
|
|
print_ulps (test_name, diff);
|
|
|
|
|
|
|
|
if (print_screen (ok, xfail))
|
|
|
|
{
|
|
|
|
if (!ok)
|
|
|
|
printf ("Failure:");
|
|
|
|
printf ("Test: %s\n", test_name);
|
|
|
|
printf ("Result:\n");
|
|
|
|
printf (" is: %lld\n", computed);
|
|
|
|
printf (" should be: %lld\n", expected);
|
|
|
|
}
|
|
|
|
|
|
|
|
update_stats (ok, xfail);
|
|
|
|
fpstack_test (test_name);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* This is to prevent messages from the SVID libm emulation. */
|
|
|
|
int
|
|
|
|
matherr (struct exception *x __attribute__ ((unused)))
|
|
|
|
{
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/****************************************************************************
|
|
|
|
Tests for single functions of libm.
|
|
|
|
Please keep them alphabetically sorted!
|
|
|
|
****************************************************************************/
|
|
|
|
|
|
|
|
static void
|
|
|
|
acos_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(acos) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (acos);
|
|
|
|
|
|
|
|
TEST_f_f (acos, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (acos, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (acos, nan_value, nan_value);
|
|
|
|
|
|
|
|
/* |x| > 1: */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (acos, 1.125L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (acos, -1.125L, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (acos, 0, M_PI_2l);
|
|
|
|
TEST_f_f (acos, minus_zero, M_PI_2l);
|
|
|
|
TEST_f_f (acos, 1, 0);
|
|
|
|
TEST_f_f (acos, -1, M_PIl);
|
|
|
|
TEST_f_f (acos, 0.5, M_PI_6l*2.0);
|
|
|
|
TEST_f_f (acos, -0.5, M_PI_6l*4.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (acos, 0.75L, 0.722734247813415611178377352641333362L);
|
|
|
|
TEST_f_f (acos, 2e-17L, 1.57079632679489659923132169163975144L);
|
2002-07-02 11:33:05 +02:00
|
|
|
TEST_f_f (acos, 0.0625L, 1.50825556499840522843072005474337068L);
|
1999-10-19 08:29:27 +02:00
|
|
|
END (acos);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
acosh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(acosh) (7);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (acosh);
|
|
|
|
|
|
|
|
TEST_f_f (acosh, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (acosh, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
/* x < 1: */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (acosh, -1.125L, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (acosh, 1, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (acosh, 7, 2.63391579384963341725009269461593689L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (acosh);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
asin_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(asin) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (asin);
|
|
|
|
|
|
|
|
TEST_f_f (asin, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (asin, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (asin, nan_value, nan_value);
|
|
|
|
|
|
|
|
/* asin x == NaN plus invalid exception for |x| > 1. */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (asin, 1.125L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (asin, -1.125L, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (asin, 0, 0);
|
|
|
|
TEST_f_f (asin, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (asin, 0.5, M_PI_6l);
|
|
|
|
TEST_f_f (asin, -0.5, -M_PI_6l);
|
|
|
|
TEST_f_f (asin, 1.0, M_PI_2l);
|
|
|
|
TEST_f_f (asin, -1.0, -M_PI_2l);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (asin, 0.75L, 0.848062078981481008052944338998418080L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (asin);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
asinh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(asinh) (0.7L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (asinh);
|
|
|
|
|
|
|
|
TEST_f_f (asinh, 0, 0);
|
|
|
|
TEST_f_f (asinh, minus_zero, minus_zero);
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (asinh, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (asinh, minus_infty, minus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (asinh, nan_value, nan_value);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (asinh, 0.75L, 0.693147180559945309417232121458176568L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (asinh);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
atan_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(atan) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (atan);
|
|
|
|
|
|
|
|
TEST_f_f (atan, 0, 0);
|
|
|
|
TEST_f_f (atan, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_f_f (atan, plus_infty, M_PI_2l);
|
|
|
|
TEST_f_f (atan, minus_infty, -M_PI_2l);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (atan, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (atan, 1, M_PI_4l);
|
|
|
|
TEST_f_f (atan, -1, -M_PI_4l);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (atan, 0.75L, 0.643501108793284386802809228717322638L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (atan);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
atanh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(atanh) (0.7L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (atanh);
|
|
|
|
|
|
|
|
|
|
|
|
TEST_f_f (atanh, 0, 0);
|
|
|
|
TEST_f_f (atanh, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_f_f (atanh, 1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (atanh, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (atanh, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* atanh (x) == NaN plus invalid exception if |x| > 1. */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (atanh, 1.125L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (atanh, -1.125L, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (atanh, 0.75L, 0.972955074527656652552676371721589865L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (atanh);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
atan2_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(atan2) (-0, 1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (atan2);
|
|
|
|
|
|
|
|
/* atan2 (0,x) == 0 for x > 0. */
|
|
|
|
TEST_ff_f (atan2, 0, 1, 0);
|
|
|
|
|
|
|
|
/* atan2 (-0,x) == -0 for x > 0. */
|
|
|
|
TEST_ff_f (atan2, minus_zero, 1, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (atan2, 0, 0, 0);
|
|
|
|
TEST_ff_f (atan2, minus_zero, 0, minus_zero);
|
|
|
|
|
|
|
|
/* atan2 (+0,x) == +pi for x < 0. */
|
|
|
|
TEST_ff_f (atan2, 0, -1, M_PIl);
|
|
|
|
|
|
|
|
/* atan2 (-0,x) == -pi for x < 0. */
|
|
|
|
TEST_ff_f (atan2, minus_zero, -1, -M_PIl);
|
|
|
|
|
|
|
|
TEST_ff_f (atan2, 0, minus_zero, M_PIl);
|
|
|
|
TEST_ff_f (atan2, minus_zero, minus_zero, -M_PIl);
|
|
|
|
|
|
|
|
/* atan2 (y,+0) == pi/2 for y > 0. */
|
|
|
|
TEST_ff_f (atan2, 1, 0, M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2 (y,-0) == pi/2 for y > 0. */
|
|
|
|
TEST_ff_f (atan2, 1, minus_zero, M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2 (y,+0) == -pi/2 for y < 0. */
|
|
|
|
TEST_ff_f (atan2, -1, 0, -M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2 (y,-0) == -pi/2 for y < 0. */
|
|
|
|
TEST_ff_f (atan2, -1, minus_zero, -M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2 (y,inf) == +0 for finite y > 0. */
|
|
|
|
TEST_ff_f (atan2, 1, plus_infty, 0);
|
|
|
|
|
|
|
|
/* atan2 (y,inf) == -0 for finite y < 0. */
|
|
|
|
TEST_ff_f (atan2, -1, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
/* atan2(+inf, x) == pi/2 for finite x. */
|
|
|
|
TEST_ff_f (atan2, plus_infty, -1, M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2(-inf, x) == -pi/2 for finite x. */
|
|
|
|
TEST_ff_f (atan2, minus_infty, 1, -M_PI_2l);
|
|
|
|
|
|
|
|
/* atan2 (y,-inf) == +pi for finite y > 0. */
|
|
|
|
TEST_ff_f (atan2, 1, minus_infty, M_PIl);
|
|
|
|
|
|
|
|
/* atan2 (y,-inf) == -pi for finite y < 0. */
|
|
|
|
TEST_ff_f (atan2, -1, minus_infty, -M_PIl);
|
|
|
|
|
|
|
|
TEST_ff_f (atan2, plus_infty, plus_infty, M_PI_4l);
|
|
|
|
TEST_ff_f (atan2, minus_infty, plus_infty, -M_PI_4l);
|
|
|
|
TEST_ff_f (atan2, plus_infty, minus_infty, M_PI_34l);
|
|
|
|
TEST_ff_f (atan2, minus_infty, minus_infty, -M_PI_34l);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_ff_f (atan2, nan_value, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (atan2, 0.75L, 1, 0.643501108793284386802809228717322638L);
|
|
|
|
TEST_ff_f (atan2, -0.75L, 1.0L, -0.643501108793284386802809228717322638L);
|
|
|
|
TEST_ff_f (atan2, 0.75L, -1.0L, 2.49809154479650885165983415456218025L);
|
|
|
|
TEST_ff_f (atan2, -0.75L, -1.0L, -2.49809154479650885165983415456218025L);
|
|
|
|
TEST_ff_f (atan2, 0.390625L, .00029L, 1.57005392693128974780151246612928941L);
|
|
|
|
TEST_ff_f (atan2, 1.390625L, 0.9296875L, 0.981498387184244311516296577615519772L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2004-12-17 07:49:30 +01:00
|
|
|
TEST_ff_f (atan2, -0.00756827042671106339L, -.001792735857538728036L, -1.80338464113663849327153994379639112L);
|
Update.
2003-11-28 Ulrich Drepper <drepper@redhat.com>
* sysdeps/x86_64/fpu/libm-test-ulps: Add some more minor changes
to compensate other setup.
2003-11-27 Andreas Jaeger <aj@suse.de>
* sysdeps/x86_64/fpu/libm-test-ulps: Add ulps for new atan2 test.
* math/libm-test.inc (atan2_test): Add test that run infinitly.
Reported by "Willus" <etc231etc231@willus.com>.
2003-11-27 Michael Matz <matz@suse.de>
* sysdeps/ieee754/dbl-64/mpsqrt.c (fastiroot): Fix 64-bit problem
with wrong types.
2003-11-28 Jakub Jelinek <jakub@redhat.com>
* posix/regexec.c (acquire_init_state_context): Make inline.
Add always_inline attribute.
(check_matching): Add BE macro. Move if (cur_state->has_backref)
into if (dfa->nbackref).
(sift_states_backward): Fix comment.
(transit_state): Add BE macro. Move if (next_state->has_backref)
into if (dfa->nbackref && next_state). Don't check for next_state
!= NULL twice.
* posix/regcomp.c (peek_token): Use opr.ctx_type instead of opr.idx
for ANCHOR.
(parse_expression): Only call init_word_char if word context will be
needed.
* posix/bug-regex11.c (tests): Add new tests.
* posix/tst-regex.c: Include getopt.h.
(timing): New variable.
(main): Set timing to 1 if --timing argument is present.
Add 2 new tests.
(run_test, run_test_backwards): Handle timing.
2003-11-27 Jakub Jelinek <jakub@redhat.com>
* posix/regex_internal.h (re_string_t): Remove mbs_case field.
Add offsets, valid_raw_len, raw_len, raw_stop, mbs_allocated and
offsets_needed fields. Change icase, is_utf8 and map_notascii
type from int bitfield to unsigned char.
(MBS_ALLOCATED, MBS_CASE_ALLOCATED): Remove.
(build_wcs_upper_buffer): Change prototype to return int.
(re_string_peek_byte_case, re_string_fetch_byte_case): Remove
defines, add prototypes.
* posix/regex_internal.c (re_string_allocate): Don't initialize
stop here. Don't initialize mbs_case. Set valid_raw_len.
Use mbs_allocated instead of MBS_* macros.
(re_string_construct): Don't initialize stop and valid_len here.
Don't initialize mbs_case. Use mbs_allocated instead of MBS_*
macros. Reallocate buffers if build_wcs_upper_buffer converted
too few bytes. Set valid_len to bufs_len only for single byte
no translation and set in that case valid_raw_len as well.
(re_string_realloc_buffers): Reallocate offsets if not NULL.
Use mbs_allocated instead of MBS_ALLOCATED. Don't reallocate
mbs_case.
(re_string_construct_common): Initialize raw_len, mbs_allocated,
stop and raw_stop.
(build_wcs_buffer): Apply pstr->trans before mbrtowc instead of
after it. Set valid_raw_len. Don't set mbs_case.
(build_wcs_upper_buffer): Return REG_NOERROR or REG_ESPACE.
Only use the fast path if !pstr->offsets_needed. Apply pstr->trans
before mbrtowc instead of after it. If upper case character
uses different number of bytes than lower case, goto to the
slow path. Don't call towupper unnecessarily twice. Set
valid_raw_len as well. Handle in the slow path the case if
lower and upper case use different number of characters.
Don't set mbs_case.
(re_string_skip_chars): Use valid_raw_len instead of valid_len.
(build_upper_buffer): Don't set mbs_case. Add BE macro. Set
valid_raw_len.
(re_string_translate_buffer): Set mbs instead of mbs_case. Set
valid_raw_len.
(re_string_reconstruct): Use raw_len/raw_stop to initialize
len/stop. Clear valid_raw_len and offsets_needed when clearing
valid_len. Use mbs_allocated instead of MBS_* macros.
Check original offset against valid_raw_len instead of valid_len.
Remove mbs_case handling. Adjust valid_raw_len together with
valid_len. If is_utf8 and looking for tip context, apply
pstr->trans first. If buffers start with partial multi-byte
character, initialize mbs array as well if mbs_allocated.
Check return value of build_wcs_upper_buffer.
(re_string_peek_byte_case): New function.
(re_string_fetch_byte_case): New function.
(re_string_destruct): Use mbs_allocated instead of MBS_ALLOCATED.
Don't free mbs_case. Free offsets.
* posix/regcomp.c (init_dfa): Only check if charset name is UTF-8
if mb_cur_max == 6.
* posix/regexec.c (re_search_internal): Initialize input.raw_stop
as well. Use valid_raw_len instead of valid_len when looking
through fastmap. Adjust registers through input.offsets.
(extend_buffers): Allow build_wcs_upper_buffer to fail.
* posix/bug-regex18.c (tests): Enable #ifdefed out tests. Add new
tests.
2003-11-29 07:13:09 +01:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (atan2);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
cabs_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(cabs) (BUILD_COMPLEX (0.7L, 12.4L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cabs);
|
|
|
|
|
|
|
|
/* cabs (x + iy) is specified as hypot (x,y) */
|
|
|
|
|
|
|
|
/* cabs (+inf + i x) == +inf. */
|
|
|
|
TEST_c_f (cabs, plus_infty, 1.0, plus_infty);
|
|
|
|
/* cabs (-inf + i x) == +inf. */
|
|
|
|
TEST_c_f (cabs, minus_infty, 1.0, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_f (cabs, minus_infty, nan_value, plus_infty);
|
|
|
|
TEST_c_f (cabs, minus_infty, nan_value, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_f (cabs, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
/* cabs (x,y) == cabs (y,x). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, 0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* cabs (x,y) == cabs (-x,y). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, -12.390625L, 0.75L, 12.4133028598606664302388810868156657L);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* cabs (x,y) == cabs (-y,x). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, -0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* cabs (x,y) == cabs (-x,-y). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, -12.390625L, -0.75L, 12.4133028598606664302388810868156657L);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* cabs (x,y) == cabs (-y,-x). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, -0.75L, -12.390625L, 12.4133028598606664302388810868156657L);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* cabs (x,0) == fabs (x). */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, -0.75L, 0, 0.75L);
|
|
|
|
TEST_c_f (cabs, 0.75L, 0, 0.75L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_c_f (cabs, -1.0L, 0, 1.0L);
|
|
|
|
TEST_c_f (cabs, 1.0L, 0, 1.0L);
|
|
|
|
TEST_c_f (cabs, -5.7e7L, 0, 5.7e7L);
|
|
|
|
TEST_c_f (cabs, 5.7e7L, 0, 5.7e7L);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_f (cabs, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (cabs);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
cacos_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(cacos) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cacos);
|
|
|
|
|
|
|
|
|
|
|
|
TEST_c_c (cacos, 0, 0, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (cacos, minus_zero, 0, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (cacos, minus_zero, minus_zero, M_PI_2l, 0.0);
|
|
|
|
TEST_c_c (cacos, 0, minus_zero, M_PI_2l, 0.0);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, minus_infty, plus_infty, M_PI_34l, minus_infty);
|
|
|
|
TEST_c_c (cacos, minus_infty, minus_infty, M_PI_34l, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, plus_infty, plus_infty, M_PI_4l, minus_infty);
|
|
|
|
TEST_c_c (cacos, plus_infty, minus_infty, M_PI_4l, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, -10.0, plus_infty, M_PI_2l, minus_infty);
|
|
|
|
TEST_c_c (cacos, -10.0, minus_infty, M_PI_2l, plus_infty);
|
|
|
|
TEST_c_c (cacos, 0, plus_infty, M_PI_2l, minus_infty);
|
|
|
|
TEST_c_c (cacos, 0, minus_infty, M_PI_2l, plus_infty);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (cacos, 0.1L, plus_infty, M_PI_2l, minus_infty);
|
|
|
|
TEST_c_c (cacos, 0.1L, minus_infty, M_PI_2l, plus_infty);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (cacos, minus_infty, 0, M_PIl, minus_infty);
|
|
|
|
TEST_c_c (cacos, minus_infty, minus_zero, M_PIl, plus_infty);
|
|
|
|
TEST_c_c (cacos, minus_infty, 100, M_PIl, minus_infty);
|
|
|
|
TEST_c_c (cacos, minus_infty, -100, M_PIl, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, plus_infty, 0, 0.0, minus_infty);
|
|
|
|
TEST_c_c (cacos, plus_infty, minus_zero, 0.0, plus_infty);
|
|
|
|
TEST_c_c (cacos, plus_infty, 0.5, 0.0, minus_infty);
|
|
|
|
TEST_c_c (cacos, plus_infty, -0.5, 0.0, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, plus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (cacos, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, 0, nan_value, M_PI_2l, nan_value);
|
|
|
|
TEST_c_c (cacos, minus_zero, nan_value, M_PI_2l, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, nan_value, plus_infty, nan_value, minus_infty);
|
|
|
|
TEST_c_c (cacos, nan_value, minus_infty, nan_value, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cacos, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cacos, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (cacos, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (cacos, 0.75L, 1.25L, 1.11752014915610270578240049553777969L, -1.13239363160530819522266333696834467L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (cacos, -2, -3, 2.1414491111159960199416055713254211L, 1.9833870299165354323470769028940395L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (cacos, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
cacosh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(cacosh) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cacosh);
|
|
|
|
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, 0, 0, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, minus_zero, 0, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, 0, minus_zero, 0.0, -M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, minus_zero, minus_zero, 0.0, -M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, minus_infty, plus_infty, plus_infty, M_PI_34l);
|
|
|
|
TEST_c_c (cacosh, minus_infty, minus_infty, plus_infty, -M_PI_34l);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, plus_infty, plus_infty, plus_infty, M_PI_4l);
|
|
|
|
TEST_c_c (cacosh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, -10.0, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, -10.0, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, 0, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, 0, minus_infty, plus_infty, -M_PI_2l);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (cacosh, 0.1L, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (cacosh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (cacosh, minus_infty, 0, plus_infty, M_PIl);
|
|
|
|
TEST_c_c (cacosh, minus_infty, minus_zero, plus_infty, -M_PIl);
|
|
|
|
TEST_c_c (cacosh, minus_infty, 100, plus_infty, M_PIl);
|
|
|
|
TEST_c_c (cacosh, minus_infty, -100, plus_infty, -M_PIl);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, plus_infty, 0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (cacosh, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (cacosh, plus_infty, 0.5, plus_infty, 0.0);
|
|
|
|
TEST_c_c (cacosh, plus_infty, -0.5, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_c_c (cacosh, minus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, 0, nan_value, nan_value, nan_value);
|
|
|
|
TEST_c_c (cacosh, minus_zero, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, nan_value, plus_infty, plus_infty, nan_value);
|
|
|
|
TEST_c_c (cacosh, nan_value, minus_infty, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cacosh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cacosh, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (cacosh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (cacosh, 0.75L, 1.25L, 1.13239363160530819522266333696834467L, 1.11752014915610270578240049553777969L);
|
2006-01-15 18:59:52 +01:00
|
|
|
TEST_c_c (cacosh, -2, -3, 1.9833870299165354323470769028940395L, -2.1414491111159960199416055713254211L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (cacosh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
carg_test (void)
|
|
|
|
{
|
|
|
|
START (carg);
|
|
|
|
|
|
|
|
/* carg (x + iy) is specified as atan2 (y, x) */
|
|
|
|
|
|
|
|
/* carg (x + i 0) == 0 for x > 0. */
|
|
|
|
TEST_c_f (carg, 2.0, 0, 0);
|
|
|
|
/* carg (x - i 0) == -0 for x > 0. */
|
|
|
|
TEST_c_f (carg, 2.0, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_f (carg, 0, 0, 0);
|
|
|
|
TEST_c_f (carg, 0, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
/* carg (x + i 0) == +pi for x < 0. */
|
|
|
|
TEST_c_f (carg, -2.0, 0, M_PIl);
|
|
|
|
|
|
|
|
/* carg (x - i 0) == -pi for x < 0. */
|
|
|
|
TEST_c_f (carg, -2.0, minus_zero, -M_PIl);
|
|
|
|
|
|
|
|
TEST_c_f (carg, minus_zero, 0, M_PIl);
|
|
|
|
TEST_c_f (carg, minus_zero, minus_zero, -M_PIl);
|
|
|
|
|
|
|
|
/* carg (+0 + i y) == pi/2 for y > 0. */
|
|
|
|
TEST_c_f (carg, 0, 2.0, M_PI_2l);
|
|
|
|
|
|
|
|
/* carg (-0 + i y) == pi/2 for y > 0. */
|
|
|
|
TEST_c_f (carg, minus_zero, 2.0, M_PI_2l);
|
|
|
|
|
|
|
|
/* carg (+0 + i y) == -pi/2 for y < 0. */
|
|
|
|
TEST_c_f (carg, 0, -2.0, -M_PI_2l);
|
|
|
|
|
|
|
|
/* carg (-0 + i y) == -pi/2 for y < 0. */
|
|
|
|
TEST_c_f (carg, minus_zero, -2.0, -M_PI_2l);
|
|
|
|
|
|
|
|
/* carg (inf + i y) == +0 for finite y > 0. */
|
|
|
|
TEST_c_f (carg, plus_infty, 2.0, 0);
|
|
|
|
|
|
|
|
/* carg (inf + i y) == -0 for finite y < 0. */
|
|
|
|
TEST_c_f (carg, plus_infty, -2.0, minus_zero);
|
|
|
|
|
|
|
|
/* carg(x + i inf) == pi/2 for finite x. */
|
|
|
|
TEST_c_f (carg, 10.0, plus_infty, M_PI_2l);
|
|
|
|
|
|
|
|
/* carg(x - i inf) == -pi/2 for finite x. */
|
|
|
|
TEST_c_f (carg, 10.0, minus_infty, -M_PI_2l);
|
|
|
|
|
|
|
|
/* carg (-inf + i y) == +pi for finite y > 0. */
|
|
|
|
TEST_c_f (carg, minus_infty, 10.0, M_PIl);
|
|
|
|
|
|
|
|
/* carg (-inf + i y) == -pi for finite y < 0. */
|
|
|
|
TEST_c_f (carg, minus_infty, -10.0, -M_PIl);
|
|
|
|
|
|
|
|
TEST_c_f (carg, plus_infty, plus_infty, M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_f (carg, plus_infty, minus_infty, -M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_f (carg, minus_infty, plus_infty, 3 * M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_f (carg, minus_infty, minus_infty, -3 * M_PI_4l);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_c_f (carg, nan_value, nan_value, nan_value);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (carg);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
casin_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(casin) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (casin);
|
|
|
|
|
|
|
|
TEST_c_c (casin, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (casin, minus_zero, 0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (casin, 0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (casin, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (casin, plus_infty, plus_infty, M_PI_4l, plus_infty);
|
|
|
|
TEST_c_c (casin, plus_infty, minus_infty, M_PI_4l, minus_infty);
|
|
|
|
TEST_c_c (casin, minus_infty, plus_infty, -M_PI_4l, plus_infty);
|
|
|
|
TEST_c_c (casin, minus_infty, minus_infty, -M_PI_4l, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (casin, -10.0, plus_infty, minus_zero, plus_infty);
|
|
|
|
TEST_c_c (casin, -10.0, minus_infty, minus_zero, minus_infty);
|
|
|
|
TEST_c_c (casin, 0, plus_infty, 0.0, plus_infty);
|
|
|
|
TEST_c_c (casin, 0, minus_infty, 0.0, minus_infty);
|
|
|
|
TEST_c_c (casin, minus_zero, plus_infty, minus_zero, plus_infty);
|
|
|
|
TEST_c_c (casin, minus_zero, minus_infty, minus_zero, minus_infty);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (casin, 0.1L, plus_infty, 0.0, plus_infty);
|
|
|
|
TEST_c_c (casin, 0.1L, minus_infty, 0.0, minus_infty);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (casin, minus_infty, 0, -M_PI_2l, plus_infty);
|
|
|
|
TEST_c_c (casin, minus_infty, minus_zero, -M_PI_2l, minus_infty);
|
|
|
|
TEST_c_c (casin, minus_infty, 100, -M_PI_2l, plus_infty);
|
|
|
|
TEST_c_c (casin, minus_infty, -100, -M_PI_2l, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (casin, plus_infty, 0, M_PI_2l, plus_infty);
|
|
|
|
TEST_c_c (casin, plus_infty, minus_zero, M_PI_2l, minus_infty);
|
|
|
|
TEST_c_c (casin, plus_infty, 0.5, M_PI_2l, plus_infty);
|
|
|
|
TEST_c_c (casin, plus_infty, -0.5, M_PI_2l, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (casin, nan_value, plus_infty, nan_value, plus_infty);
|
|
|
|
TEST_c_c (casin, nan_value, minus_infty, nan_value, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (casin, 0.0, nan_value, 0.0, nan_value);
|
|
|
|
TEST_c_c (casin, minus_zero, nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (casin, plus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (casin, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (casin, nan_value, 10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (casin, nan_value, -10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (casin, 0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (casin, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (casin, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (casin, 0.75L, 1.25L, 0.453276177638793913448921196101971749L, 1.13239363160530819522266333696834467L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (casin, -2, -3, -0.57065278432109940071028387968566963L, -1.9833870299165354323470769028940395L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (casin, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
casinh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(casinh) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (casinh);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (casinh, minus_zero, 0, minus_zero, 0);
|
|
|
|
TEST_c_c (casinh, 0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (casinh, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, plus_infty, plus_infty, plus_infty, M_PI_4l);
|
|
|
|
TEST_c_c (casinh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
|
|
|
|
TEST_c_c (casinh, minus_infty, plus_infty, minus_infty, M_PI_4l);
|
|
|
|
TEST_c_c (casinh, minus_infty, minus_infty, minus_infty, -M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, -10.0, plus_infty, minus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (casinh, -10.0, minus_infty, minus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (casinh, 0, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (casinh, 0, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (casinh, minus_zero, plus_infty, minus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (casinh, minus_zero, minus_infty, minus_infty, -M_PI_2l);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (casinh, 0.1L, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (casinh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (casinh, minus_infty, 0, minus_infty, 0.0);
|
|
|
|
TEST_c_c (casinh, minus_infty, minus_zero, minus_infty, minus_zero);
|
|
|
|
TEST_c_c (casinh, minus_infty, 100, minus_infty, 0.0);
|
|
|
|
TEST_c_c (casinh, minus_infty, -100, minus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, plus_infty, 0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (casinh, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (casinh, plus_infty, 0.5, plus_infty, 0.0);
|
|
|
|
TEST_c_c (casinh, plus_infty, -0.5, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_c_c (casinh, minus_infty, nan_value, minus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, nan_value, 0, nan_value, 0.0);
|
|
|
|
TEST_c_c (casinh, nan_value, minus_zero, nan_value, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, nan_value, plus_infty, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (casinh, nan_value, minus_infty, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (casinh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (casinh, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (casinh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (casinh, 0.75L, 1.25L, 1.03171853444778027336364058631006594L, 0.911738290968487636358489564316731207L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (casinh, -2, -3, -1.9686379257930962917886650952454982L, -0.96465850440760279204541105949953237L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (casinh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
catan_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(catan) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (catan);
|
|
|
|
|
|
|
|
TEST_c_c (catan, 0, 0, 0, 0);
|
|
|
|
TEST_c_c (catan, minus_zero, 0, minus_zero, 0);
|
|
|
|
TEST_c_c (catan, 0, minus_zero, 0, minus_zero);
|
|
|
|
TEST_c_c (catan, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (catan, plus_infty, plus_infty, M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, plus_infty, minus_infty, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, minus_infty, plus_infty, -M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, minus_infty, minus_infty, -M_PI_2l, minus_zero);
|
|
|
|
|
|
|
|
|
|
|
|
TEST_c_c (catan, plus_infty, -10.0, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, minus_infty, -10.0, -M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, plus_infty, minus_zero, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, minus_infty, minus_zero, -M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, plus_infty, 0.0, M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, minus_infty, 0.0, -M_PI_2l, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (catan, plus_infty, 0.1L, M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, minus_infty, 0.1L, -M_PI_2l, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (catan, 0.0, minus_infty, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, minus_zero, minus_infty, -M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, 100.0, minus_infty, M_PI_2l, minus_zero);
|
|
|
|
TEST_c_c (catan, -100.0, minus_infty, -M_PI_2l, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (catan, 0.0, plus_infty, M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, minus_zero, plus_infty, -M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, 0.5, plus_infty, M_PI_2l, 0);
|
|
|
|
TEST_c_c (catan, -0.5, plus_infty, -M_PI_2l, 0);
|
|
|
|
|
|
|
|
TEST_c_c (catan, nan_value, 0.0, nan_value, 0);
|
|
|
|
TEST_c_c (catan, nan_value, minus_zero, nan_value, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (catan, nan_value, plus_infty, nan_value, 0);
|
|
|
|
TEST_c_c (catan, nan_value, minus_infty, nan_value, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (catan, 0.0, nan_value, nan_value, nan_value);
|
|
|
|
TEST_c_c (catan, minus_zero, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (catan, plus_infty, nan_value, M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (catan, minus_infty, nan_value, -M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (catan, nan_value, 10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (catan, nan_value, -10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (catan, 0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (catan, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (catan, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (catan, 0.75L, 1.25L, 1.10714871779409050301706546017853704L, 0.549306144334054845697622618461262852L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (catan, -2, -3, -1.4099210495965755225306193844604208L, -0.22907268296853876629588180294200276L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (catan, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
catanh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(catanh) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (catanh);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (catanh, minus_zero, 0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (catanh, 0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (catanh, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, plus_infty, plus_infty, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, plus_infty, minus_infty, 0.0, -M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_infty, plus_infty, minus_zero, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_infty, minus_infty, minus_zero, -M_PI_2l);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, -10.0, plus_infty, minus_zero, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, -10.0, minus_infty, minus_zero, -M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_zero, plus_infty, minus_zero, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_zero, minus_infty, minus_zero, -M_PI_2l);
|
|
|
|
TEST_c_c (catanh, 0, plus_infty, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, 0, minus_infty, 0.0, -M_PI_2l);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_c_c (catanh, 0.1L, plus_infty, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, 0.1L, minus_infty, 0.0, -M_PI_2l);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (catanh, minus_infty, 0, minus_zero, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_infty, minus_zero, minus_zero, -M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_infty, 100, minus_zero, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, minus_infty, -100, minus_zero, -M_PI_2l);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, plus_infty, 0, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, plus_infty, minus_zero, 0.0, -M_PI_2l);
|
|
|
|
TEST_c_c (catanh, plus_infty, 0.5, 0.0, M_PI_2l);
|
|
|
|
TEST_c_c (catanh, plus_infty, -0.5, 0.0, -M_PI_2l);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, 0, nan_value, 0.0, nan_value);
|
|
|
|
TEST_c_c (catanh, minus_zero, nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, plus_infty, nan_value, 0.0, nan_value);
|
|
|
|
TEST_c_c (catanh, minus_infty, nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, nan_value, 0, nan_value, nan_value);
|
|
|
|
TEST_c_c (catanh, nan_value, minus_zero, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, nan_value, plus_infty, 0.0, M_PI_2l, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (catanh, nan_value, minus_infty, 0.0, -M_PI_2l, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (catanh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (catanh, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (catanh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (catanh, 0.75L, 1.25L, 0.261492138795671927078652057366532140L, 0.996825126463918666098902241310446708L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (catanh, -2, -3, -0.14694666622552975204743278515471595L, -1.3389725222944935611241935759091443L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (catanh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
cbrt_test (void)
|
|
|
|
{
|
Update.
2000-10-28 Jes Sorensen <jes@linuxcare.com>
* sysdeps/unix/sysv/linux/ia64/Versions: Export ioperm, iopl, inb,
inw, inl, _inb, _inw, _inl, outb, outw, outl, _outb, _outw,
_outl. Reported by Bill Nottingham.
2000-04-06 Andreas Schwab <schwab@suse.de>
* sysdeps/ia64/dl-machine.h (TRAMPOLINE_TEMPLATE): Save and
restore register r8 for functions that return a structure.
2000-10-12 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_PI_6l, M_E2l, M_E3l, M_2_SQRT_PIl,
M_SQRT_PIl): Increase precision.
(cbrt_test): If cbrt is not implemented, don't test it.
Add L suffix to double constants in results which differ from their
L suffixed counterparts.
(exp10_test, fmod_test, frexp_test, hypot_test, sqrt_test): Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Update.
2000-10-11 Jakub Jelinek <jakub@redhat.com>
* inet/rexec.c (rexec_af): Convert rport to host order before
passing it to snprintf.
2000-10-14 Ulrich Drepper <drepper@redhat.com>
* sysdeps/gnu/netinet/tcp.h: Use u_intXX_t types instead of
uintXX_t since this is what <sys/types.h> defines and we include
this header. Reported by Bernhard Rosenkraenzer <bero@redhat.de>.
* intl/localealias.c (read_alias_file): Update string pointers
in map[] if realloc() changed the values.
Patch by Jakub Jelinek <jakub@redhat.com>.
* manual/stdio.texi: Update printf extension documentation after
z became a valid modifier.
Patch by Joseph S. Myers <jsm28@cam.ac.uk>.
* timezone/africa: Update from tzcode2000g and tzdata2000g.
* timezone/asia: Likewise.
* timezone/australasia: Likewise.
* timezone/backward: Likewise.
* timezone/europe: Likewise.
* timezone/iso3166.tab: Likewise.
* timezone/northamerica: Likewise.
* timezone/southamerica: Likewise.
* timezone/zone.tab: Likewise.
2000-10-15 04:17:30 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(cbrt) (8);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cbrt);
|
|
|
|
|
|
|
|
TEST_f_f (cbrt, 0.0, 0.0);
|
|
|
|
TEST_f_f (cbrt, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_f_f (cbrt, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (cbrt, minus_infty, minus_infty);
|
|
|
|
TEST_f_f (cbrt, nan_value, nan_value);
|
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_f (cbrt, -0.001L, -0.1L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (cbrt, 8, 2);
|
|
|
|
TEST_f_f (cbrt, -27.0, -3.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (cbrt, 0.9921875L, 0.997389022060725270579075195353955217L);
|
|
|
|
TEST_f_f (cbrt, 0.75L, 0.908560296416069829445605878163630251L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (cbrt);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
ccos_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(ccos) (BUILD_COMPLEX (0, 0));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (ccos);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, 0.0, 0.0, 1.0, minus_zero);
|
|
|
|
TEST_c_c (ccos, minus_zero, 0.0, 1.0, 0.0);
|
|
|
|
TEST_c_c (ccos, 0.0, minus_zero, 1.0, 0.0);
|
|
|
|
TEST_c_c (ccos, minus_zero, minus_zero, 1.0, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, plus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccos, plus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccos, minus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccos, minus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, 0.0, plus_infty, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (ccos, 0.0, minus_infty, plus_infty, 0.0);
|
|
|
|
TEST_c_c (ccos, minus_zero, plus_infty, plus_infty, 0.0);
|
|
|
|
TEST_c_c (ccos, minus_zero, minus_infty, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, 4.625, plus_infty, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (ccos, 4.625, minus_infty, minus_infty, minus_infty);
|
|
|
|
TEST_c_c (ccos, -4.625, plus_infty, minus_infty, minus_infty);
|
|
|
|
TEST_c_c (ccos, -4.625, minus_infty, minus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, plus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, plus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, minus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccos, minus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccos, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, nan_value, plus_infty, plus_infty, nan_value);
|
|
|
|
TEST_c_c (ccos, nan_value, minus_infty, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, nan_value, 9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccos, nan_value, -9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, 0.0, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccos, minus_zero, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, 10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccos, -10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, plus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccos, minus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccos, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (ccos, 0.75L, 1.25L, 1.38173873063425888530729933139078645L, -1.09193013555397466170919531722024128L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (ccos, -2, -3, -4.18962569096880723013255501961597373L, -9.10922789375533659797919726277886212L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (ccos, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
ccosh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(ccosh) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (ccosh);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, 0.0, 0.0, 1.0, 0.0);
|
|
|
|
TEST_c_c (ccosh, minus_zero, 0.0, 1.0, minus_zero);
|
|
|
|
TEST_c_c (ccosh, 0.0, minus_zero, 1.0, minus_zero);
|
|
|
|
TEST_c_c (ccosh, minus_zero, minus_zero, 1.0, 0.0);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, 0.0, plus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccosh, minus_zero, plus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccosh, 0.0, minus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccosh, minus_zero, minus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, plus_infty, 0.0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (ccosh, minus_infty, 0.0, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (ccosh, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (ccosh, minus_infty, minus_zero, plus_infty, 0.0);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, plus_infty, 4.625, minus_infty, minus_infty);
|
|
|
|
TEST_c_c (ccosh, minus_infty, 4.625, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (ccosh, plus_infty, -4.625, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (ccosh, minus_infty, -4.625, minus_infty, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, 6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, -6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, 6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ccosh, -6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, 0.0, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccosh, minus_zero, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_c_c (ccosh, minus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, 9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccosh, -9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ccosh, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, nan_value, 10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccosh, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ccosh, nan_value, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ccosh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (ccosh, 0.75L, 1.25L, 0.408242591877968807788852146397499084L, 0.780365930845853240391326216300863152L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (ccosh, -2, -3, -3.72454550491532256547397070325597253L, 0.511822569987384608834463849801875634L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (ccosh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
ceil_test (void)
|
|
|
|
{
|
|
|
|
START (ceil);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, 0.0, 0.0);
|
|
|
|
TEST_f_f (ceil, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (ceil, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (ceil, minus_infty, minus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (ceil, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (ceil, M_PIl, 4.0);
|
|
|
|
TEST_f_f (ceil, -M_PIl, -3.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (ceil, 0.1, 1.0);
|
2003-11-14 01:36:46 +01:00
|
|
|
TEST_f_f (ceil, 0.25, 1.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (ceil, 0.625, 1.0);
|
|
|
|
TEST_f_f (ceil, -0.1, minus_zero);
|
2003-11-26 04:24:15 +01:00
|
|
|
TEST_f_f (ceil, -0.25, minus_zero);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (ceil, -0.625, minus_zero);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (ceil, 4503599627370495.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370496.25L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370496.5L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370496.75L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370497.5L, 4503599627370498.0L);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, -4503599627370495.5L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370496.75L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370497.5L, -4503599627370497.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (ceil, 4503599627370494.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370495.5000000000001L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (ceil, 4503599627370496.5000000000001L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370494.5000000000001L, -4503599627370494.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370495.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (ceil, -4503599627370496.5000000000001L, -4503599627370496.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (ceil, 9007199254740991.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740992.25L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740992.5L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740992.75L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740993.5L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, -9007199254740991.5L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740992.25L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740992.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740992.75L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740993.5L, -9007199254740993.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (ceil, 9007199254740991.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740992.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740993.0000000000001L, 9007199254740994.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740991.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740992.5000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, 9007199254740993.5000000000001L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740991.5000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740992.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (ceil, -9007199254740993.5000000000001L, -9007199254740993.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (ceil, 72057594037927935.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (ceil, 72057594037927936.25L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (ceil, 72057594037927936.5L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (ceil, 72057594037927936.75L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (ceil, 72057594037927937.5L, 72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, -72057594037927935.5L, -72057594037927935.0L);
|
|
|
|
TEST_f_f (ceil, -72057594037927936.25L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (ceil, -72057594037927936.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (ceil, -72057594037927936.75L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (ceil, -72057594037927937.5L, -72057594037927937.0L);
|
|
|
|
|
|
|
|
TEST_f_f (ceil, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (ceil, 10141204801825835211973625643008.25L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (ceil, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (ceil, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (ceil, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (ceil);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
cexp_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(cexp) (BUILD_COMPLEX (0, 0));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cexp);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, plus_zero, plus_zero, 1, 0.0);
|
|
|
|
TEST_c_c (cexp, minus_zero, plus_zero, 1, 0.0);
|
|
|
|
TEST_c_c (cexp, plus_zero, minus_zero, 1, minus_zero);
|
|
|
|
TEST_c_c (cexp, minus_zero, minus_zero, 1, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, plus_infty, plus_zero, plus_infty, 0.0);
|
|
|
|
TEST_c_c (cexp, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, minus_infty, plus_zero, 0.0, 0.0);
|
|
|
|
TEST_c_c (cexp, minus_infty, minus_zero, 0.0, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, 0.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (cexp, minus_zero, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, 0.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (cexp, minus_zero, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, 100.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (cexp, -100.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, 100.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (cexp, -100.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, minus_infty, 2.0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (cexp, minus_infty, 4.0, minus_zero, minus_zero);
|
|
|
|
TEST_c_c (cexp, plus_infty, 2.0, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (cexp, plus_infty, 4.0, minus_infty, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (cexp, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, minus_infty, plus_infty, 0.0, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (cexp, minus_infty, minus_infty, 0.0, minus_zero, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, minus_infty, nan_value, 0, 0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, nan_value, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cexp, nan_value, 1.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (cexp, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cexp, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cexp, 1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (cexp, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-30 17:49:29 +02:00
|
|
|
TEST_c_c (cexp, 0.75L, 1.25L, 0.667537446429131586942201977015932112L, 2.00900045494094876258347228145863909L);
|
2000-10-27 01:41:17 +02:00
|
|
|
TEST_c_c (cexp, -2.0, -3.0, -0.13398091492954261346140525546115575L, -0.019098516261135196432576240858800925L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (cexp, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-21 18:15:57 +02:00
|
|
|
static void
|
|
|
|
cimag_test (void)
|
|
|
|
{
|
|
|
|
START (cimag);
|
|
|
|
TEST_c_f (cimag, 1.0, 0.0, 0.0);
|
|
|
|
TEST_c_f (cimag, 1.0, minus_zero, minus_zero);
|
|
|
|
TEST_c_f (cimag, 1.0, nan_value, nan_value);
|
|
|
|
TEST_c_f (cimag, nan_value, nan_value, nan_value);
|
|
|
|
TEST_c_f (cimag, 1.0, plus_infty, plus_infty);
|
|
|
|
TEST_c_f (cimag, 1.0, minus_infty, minus_infty);
|
|
|
|
TEST_c_f (cimag, 2.0, 3.0, 3.0);
|
|
|
|
|
|
|
|
END (cimag);
|
|
|
|
}
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
clog_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(clog) (BUILD_COMPLEX (-2, -3));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (clog);
|
|
|
|
|
|
|
|
TEST_c_c (clog, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_c_c (clog, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (clog, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_c_c (clog, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (clog, minus_infty, plus_infty, plus_infty, M_PI_34l);
|
|
|
|
TEST_c_c (clog, minus_infty, minus_infty, plus_infty, -M_PI_34l);
|
|
|
|
|
|
|
|
TEST_c_c (clog, plus_infty, plus_infty, plus_infty, M_PI_4l);
|
|
|
|
TEST_c_c (clog, plus_infty, minus_infty, plus_infty, -M_PI_4l);
|
|
|
|
|
|
|
|
TEST_c_c (clog, 0, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (clog, 3, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (clog, minus_zero, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (clog, -3, plus_infty, plus_infty, M_PI_2l);
|
|
|
|
TEST_c_c (clog, 0, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (clog, 3, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (clog, minus_zero, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
TEST_c_c (clog, -3, minus_infty, plus_infty, -M_PI_2l);
|
|
|
|
|
|
|
|
TEST_c_c (clog, minus_infty, 0, plus_infty, M_PIl);
|
|
|
|
TEST_c_c (clog, minus_infty, 1, plus_infty, M_PIl);
|
|
|
|
TEST_c_c (clog, minus_infty, minus_zero, plus_infty, -M_PIl);
|
|
|
|
TEST_c_c (clog, minus_infty, -1, plus_infty, -M_PIl);
|
|
|
|
|
|
|
|
TEST_c_c (clog, plus_infty, 0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (clog, plus_infty, 1, plus_infty, 0.0);
|
|
|
|
TEST_c_c (clog, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (clog, plus_infty, -1, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (clog, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_c_c (clog, minus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (clog, nan_value, plus_infty, plus_infty, nan_value);
|
|
|
|
TEST_c_c (clog, nan_value, minus_infty, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (clog, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, 3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, -3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (clog, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog, nan_value, -5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (clog, nan_value, nan_value, nan_value, nan_value);
|
2002-06-20 10:33:17 +02:00
|
|
|
|
|
|
|
TEST_c_c (clog, 0.75L, 1.25L, 0.376885901188190075998919126749298416L, 1.03037682652431246378774332703115153L);
|
Update.
2001-04-17 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-128/e_logl.c (__ieee754_logl): Make sure
desired exceptions are raised for exceptional values.
* math/libm-test.inc (acosh_test, atan_test, atan2_test, cacos_test,
cacosh_test, casin_test, casinh_test, catan_test, catanh_test,
clog_test, log_test, log1p_test, tan_test): Increase precision of
expected values to satisfy ldbl-128.
* sysdeps/alpha/fpu/libm-test-ulps: Adjust accordingly.
* sysdeps/arm/libm-test-ulps: Likewise.
* sysdeps/i386/fpu/libm-test-ulps: Likewise.
* sysdeps/ia64/fpu/libm-test-ulps: Likewise.
* sysdeps/m68k/fpu/libm-test-ulps: Likewise.
* sysdeps/mips/fpu/libm-test-ulps: Likewise.
* sysdeps/powerpc/fpu/libm-test-ulps: Likewise.
* sysdeps/s390/fpu/libm-test-ulps: Likewise.
* sysdeps/sh/sh4/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc32/fpu/libm-test-ulps: Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Likewise.
2001-04-17 21:00:41 +02:00
|
|
|
TEST_c_c (clog, -2, -3, 1.2824746787307683680267437207826593L, -2.1587989303424641704769327722648368L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (clog, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
clog10_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(clog10) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (clog10);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_c_c (clog10, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_c_c (clog10, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, minus_infty, plus_infty, plus_infty, M_PI_34_LOG10El);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, plus_infty, plus_infty, plus_infty, M_PI4_LOG10El);
|
|
|
|
TEST_c_c (clog10, plus_infty, minus_infty, plus_infty, -M_PI4_LOG10El);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, 0, plus_infty, plus_infty, M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, 3, plus_infty, plus_infty, M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, minus_zero, plus_infty, plus_infty, M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, -3, plus_infty, plus_infty, M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, 0, minus_infty, plus_infty, -M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, 3, minus_infty, plus_infty, -M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, minus_zero, minus_infty, plus_infty, -M_PI2_LOG10El);
|
|
|
|
TEST_c_c (clog10, -3, minus_infty, plus_infty, -M_PI2_LOG10El);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, minus_infty, 0, plus_infty, M_PI_LOG10El);
|
|
|
|
TEST_c_c (clog10, minus_infty, 1, plus_infty, M_PI_LOG10El);
|
|
|
|
TEST_c_c (clog10, minus_infty, minus_zero, plus_infty, -M_PI_LOG10El);
|
|
|
|
TEST_c_c (clog10, minus_infty, -1, plus_infty, -M_PI_LOG10El);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, plus_infty, 0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (clog10, plus_infty, 1, plus_infty, 0.0);
|
|
|
|
TEST_c_c (clog10, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (clog10, plus_infty, -1, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_c_c (clog10, minus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, nan_value, plus_infty, plus_infty, nan_value);
|
|
|
|
TEST_c_c (clog10, nan_value, minus_infty, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, 3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, -3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (clog10, nan_value, -5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (clog10, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (clog10, 0.75L, 1.25L, 0.163679467193165171449476605077428975L, 0.447486970040493067069984724340855636L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (clog10, -2, -3, 0.556971676153418384603252578971164214L, -0.937554462986374708541507952140189646L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (clog10, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-21 18:15:57 +02:00
|
|
|
static void
|
|
|
|
conj_test (void)
|
|
|
|
{
|
|
|
|
START (conj);
|
|
|
|
TEST_c_c (conj, 0.0, 0.0, 0.0, minus_zero);
|
|
|
|
TEST_c_c (conj, 0.0, minus_zero, 0.0, 0.0);
|
|
|
|
TEST_c_c (conj, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
TEST_c_c (conj, plus_infty, minus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (conj, plus_infty, plus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (conj, 1.0, 2.0, 1.0, -2.0);
|
|
|
|
TEST_c_c (conj, 3.0, -4.0, 3.0, 4.0);
|
|
|
|
|
|
|
|
END (conj, complex);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
copysign_test (void)
|
|
|
|
{
|
|
|
|
START (copysign);
|
|
|
|
|
|
|
|
TEST_ff_f (copysign, 0, 4, 0);
|
|
|
|
TEST_ff_f (copysign, 0, -4, minus_zero);
|
|
|
|
TEST_ff_f (copysign, minus_zero, 4, 0);
|
|
|
|
TEST_ff_f (copysign, minus_zero, -4, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (copysign, plus_infty, 0, plus_infty);
|
|
|
|
TEST_ff_f (copysign, plus_infty, minus_zero, minus_infty);
|
|
|
|
TEST_ff_f (copysign, minus_infty, 0, plus_infty);
|
|
|
|
TEST_ff_f (copysign, minus_infty, minus_zero, minus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (copysign, 0, plus_infty, 0);
|
|
|
|
TEST_ff_f (copysign, 0, minus_zero, minus_zero);
|
|
|
|
TEST_ff_f (copysign, minus_zero, plus_infty, 0);
|
|
|
|
TEST_ff_f (copysign, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
/* XXX More correctly we would have to check the sign of the NaN. */
|
|
|
|
TEST_ff_f (copysign, nan_value, 0, nan_value);
|
|
|
|
TEST_ff_f (copysign, nan_value, minus_zero, nan_value);
|
|
|
|
TEST_ff_f (copysign, -nan_value, 0, nan_value);
|
|
|
|
TEST_ff_f (copysign, -nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
END (copysign);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
cos_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(cos) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cos);
|
|
|
|
|
|
|
|
TEST_f_f (cos, 0, 1);
|
|
|
|
TEST_f_f (cos, minus_zero, 1);
|
2009-04-26 03:04:54 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (cos, plus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for cos(+inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (cos, minus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for cos(-inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (cos, nan_value, nan_value);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for cos(NaN) unchanged", errno, 0, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (cos, M_PI_6l * 2.0, 0.5);
|
|
|
|
TEST_f_f (cos, M_PI_6l * 4.0, -0.5);
|
|
|
|
TEST_f_f (cos, M_PI_2l, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (cos, 0.75L, 0.731688868873820886311838753000084544L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2003-01-18 02:50:46 +01:00
|
|
|
#ifdef TEST_DOUBLE
|
|
|
|
TEST_f_f (cos, 0.80190127184058835, 0.69534156199418473);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (cos);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
cosh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(cosh) (0.7L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cosh);
|
|
|
|
TEST_f_f (cosh, 0, 1);
|
|
|
|
TEST_f_f (cosh, minus_zero, 1);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (cosh, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (cosh, minus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (cosh, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (cosh, 0.75L, 1.29468328467684468784170818539018176L);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (cosh);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
cpow_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(cpow) (BUILD_COMPLEX (1, 0), BUILD_COMPLEX (0, 0));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (cpow);
|
|
|
|
|
|
|
|
TEST_cc_c (cpow, 1, 0, 0, 0, 1.0, 0.0);
|
|
|
|
TEST_cc_c (cpow, 2, 0, 10, 0, 1024.0, 0.0);
|
|
|
|
|
|
|
|
TEST_cc_c (cpow, M_El, 0, 0, 2 * M_PIl, 1.0, 0.0);
|
|
|
|
TEST_cc_c (cpow, 2, 3, 4, 0, -119.0, -120.0);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_cc_c (cpow, nan_value, nan_value, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-07-02 11:33:05 +02:00
|
|
|
TEST_cc_c (cpow, 0.75L, 1.25L, 0.75L, 1.25L, 0.117506293914473555420279832210420483L, 0.346552747708338676483025352060418001L);
|
|
|
|
TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 1.0L, 0.0846958290317209430433805274189191353L, 0.513285749182902449043287190519090481L);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 0.0L, 0.75L, 1.25L);
|
2002-07-02 11:33:05 +02:00
|
|
|
TEST_cc_c (cpow, 0.75L, 1.25L, 0.0L, 1.0L, 0.331825439177608832276067945276730566L, 0.131338600281188544930936345230903032L);
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (cpow, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
cproj_test (void)
|
|
|
|
{
|
|
|
|
START (cproj);
|
|
|
|
TEST_c_c (cproj, 0.0, 0.0, 0.0, 0.0);
|
|
|
|
TEST_c_c (cproj, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
TEST_c_c (cproj, 0.0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (cproj, minus_zero, 0.0, minus_zero, 0.0);
|
|
|
|
|
|
|
|
TEST_c_c (cproj, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (cproj, plus_infty, plus_infty, plus_infty, 0.0);
|
|
|
|
TEST_c_c (cproj, plus_infty, minus_infty, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (cproj, minus_infty, plus_infty, plus_infty, 0.0);
|
|
|
|
TEST_c_c (cproj, minus_infty, minus_infty, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (cproj, 1.0, 0.0, 1.0, 0.0);
|
2010-04-09 00:32:51 +02:00
|
|
|
TEST_c_c (cproj, 2.0, 3.0, 2.0, 3.0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (cproj, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-21 18:15:57 +02:00
|
|
|
static void
|
|
|
|
creal_test (void)
|
|
|
|
{
|
|
|
|
START (creal);
|
|
|
|
TEST_c_f (creal, 0.0, 1.0, 0.0);
|
|
|
|
TEST_c_f (creal, minus_zero, 1.0, minus_zero);
|
|
|
|
TEST_c_f (creal, nan_value, 1.0, nan_value);
|
|
|
|
TEST_c_f (creal, nan_value, nan_value, nan_value);
|
|
|
|
TEST_c_f (creal, plus_infty, 1.0, plus_infty);
|
|
|
|
TEST_c_f (creal, minus_infty, 1.0, minus_infty);
|
|
|
|
TEST_c_f (creal, 2.0, 3.0, 2.0);
|
|
|
|
|
|
|
|
END (creal);
|
|
|
|
}
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
static void
|
|
|
|
csin_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(csin) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (csin);
|
|
|
|
|
|
|
|
TEST_c_c (csin, 0.0, 0.0, 0.0, 0.0);
|
|
|
|
TEST_c_c (csin, minus_zero, 0.0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (csin, 0.0, minus_zero, 0, minus_zero);
|
|
|
|
TEST_c_c (csin, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csin, 0.0, plus_infty, 0.0, plus_infty);
|
|
|
|
TEST_c_c (csin, minus_zero, plus_infty, minus_zero, plus_infty);
|
|
|
|
TEST_c_c (csin, 0.0, minus_infty, 0.0, minus_infty);
|
|
|
|
TEST_c_c (csin, minus_zero, minus_infty, minus_zero, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (csin, plus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, minus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, plus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, minus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csin, plus_infty, plus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, minus_infty, plus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, plus_infty, minus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, minus_infty, minus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csin, plus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csin, plus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csin, minus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csin, minus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (csin, 4.625, plus_infty, minus_infty, minus_infty);
|
|
|
|
TEST_c_c (csin, 4.625, minus_infty, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (csin, -4.625, plus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csin, -4.625, minus_infty, plus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (csin, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csin, nan_value, plus_infty, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csin, nan_value, minus_infty, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csin, nan_value, 9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csin, nan_value, -9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csin, 0.0, nan_value, 0.0, nan_value);
|
|
|
|
TEST_c_c (csin, minus_zero, nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (csin, 10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csin, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csin, plus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csin, minus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csin, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (csin, 0.75L, 1.25L, 1.28722291002649188575873510790565441L, 1.17210635989270256101081285116138863L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (csin, -2, -3, -9.15449914691142957346729954460983256L, 4.16890695996656435075481305885375484L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (csin, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
csinh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(csinh) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (csinh);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, 0.0, 0.0, 0.0, 0.0);
|
|
|
|
TEST_c_c (csinh, minus_zero, 0.0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (csinh, 0.0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (csinh, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, 0.0, plus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_zero, plus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, 0.0, minus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_zero, minus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, plus_infty, 0.0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (csinh, minus_infty, 0.0, minus_infty, 0.0);
|
|
|
|
TEST_c_c (csinh, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (csinh, minus_infty, minus_zero, minus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, plus_infty, 4.625, minus_infty, minus_infty);
|
|
|
|
TEST_c_c (csinh, minus_infty, 4.625, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csinh, plus_infty, -4.625, minus_infty, plus_infty);
|
|
|
|
TEST_c_c (csinh, minus_infty, -4.625, plus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, 6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csinh, -6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csinh, 6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (csinh, -6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, 0.0, nan_value, 0.0, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_zero, nan_value, 0.0, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, plus_infty, nan_value, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (csinh, minus_infty, nan_value, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
2001-04-11 01:12:08 +02:00
|
|
|
TEST_c_c (csinh, 9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csinh, -9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_c_c (csinh, nan_value, 0.0, nan_value, 0.0);
|
|
|
|
TEST_c_c (csinh, nan_value, minus_zero, nan_value, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, nan_value, 10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csinh, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csinh, nan_value, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csinh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (csinh, 0.75L, 1.25L, 0.259294854551162779153349830618433028L, 1.22863452409509552219214606515777594L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (csinh, -2, -3, 3.59056458998577995201256544779481679L, -0.530921086248519805267040090660676560L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (csinh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
csqrt_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(csqrt) (BUILD_COMPLEX (-1, 0));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (csqrt);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (csqrt, 0, minus_zero, 0, minus_zero);
|
|
|
|
TEST_c_c (csqrt, minus_zero, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (csqrt, minus_zero, minus_zero, 0.0, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, minus_infty, 0, 0.0, plus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_infty, 6, 0.0, plus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_infty, minus_zero, 0.0, minus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_infty, -6, 0.0, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, plus_infty, 0, plus_infty, 0.0);
|
|
|
|
TEST_c_c (csqrt, plus_infty, 6, plus_infty, 0.0);
|
|
|
|
TEST_c_c (csqrt, plus_infty, minus_zero, plus_infty, minus_zero);
|
|
|
|
TEST_c_c (csqrt, plus_infty, -6, plus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, 0, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, 4, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, plus_infty, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_zero, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, -4, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_infty, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_c_c (csqrt, 0, minus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csqrt, 4, minus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csqrt, plus_infty, minus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_zero, minus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csqrt, -4, minus_infty, plus_infty, minus_infty);
|
|
|
|
TEST_c_c (csqrt, minus_infty, minus_infty, plus_infty, minus_infty);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, plus_infty, nan_value, plus_infty, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, 1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, -1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, nan_value, 8, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (csqrt, nan_value, -8, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (csqrt, 16.0, -30.0, 5.0, -3.0);
|
|
|
|
TEST_c_c (csqrt, -1, 0, 0.0, 1.0);
|
|
|
|
TEST_c_c (csqrt, 0, 2, 1.0, 1.0);
|
|
|
|
TEST_c_c (csqrt, 119, 120, 12.0, 5.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (csqrt, 0.75L, 1.25L, 1.05065169626078392338656675760808326L, 0.594868882070379067881984030639932657L);
|
2000-10-27 01:41:17 +02:00
|
|
|
TEST_c_c (csqrt, -2, -3, 0.89597747612983812471573375529004348L, -1.6741492280355400404480393008490519L);
|
|
|
|
TEST_c_c (csqrt, -2, 3, 0.89597747612983812471573375529004348L, 1.6741492280355400404480393008490519L);
|
2005-10-13 21:08:37 +02:00
|
|
|
/* Principal square root should be returned (i.e., non-negative real
|
|
|
|
part). */
|
|
|
|
TEST_c_c (csqrt, 0, -1, M_SQRT_2_2, -M_SQRT_2_2);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (csqrt, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
ctan_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (ctan);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (ctan, 0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (ctan, minus_zero, 0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (ctan, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, 0, plus_infty, 0.0, 1.0);
|
|
|
|
TEST_c_c (ctan, 1, plus_infty, 0.0, 1.0);
|
|
|
|
TEST_c_c (ctan, minus_zero, plus_infty, minus_zero, 1.0);
|
|
|
|
TEST_c_c (ctan, -1, plus_infty, minus_zero, 1.0);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, 0, minus_infty, 0.0, -1.0);
|
|
|
|
TEST_c_c (ctan, 1, minus_infty, 0.0, -1.0);
|
|
|
|
TEST_c_c (ctan, minus_zero, minus_infty, minus_zero, -1.0);
|
|
|
|
TEST_c_c (ctan, -1, minus_infty, minus_zero, -1.0);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, plus_infty, 0, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, plus_infty, 2, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, minus_infty, 0, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, minus_infty, 2, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, plus_infty, minus_zero, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, plus_infty, -2, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, minus_infty, minus_zero, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctan, minus_infty, -2, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, nan_value, plus_infty, 0.0, 1.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ctan, nan_value, minus_infty, 0.0, -1.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, 0, nan_value, 0.0, nan_value);
|
|
|
|
TEST_c_c (ctan, minus_zero, nan_value, minus_zero, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, 0.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctan, -4.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctan, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctan, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctan, nan_value, -0.25, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ctan, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (ctan, 0.75L, 1.25L, 0.160807785916206426725166058173438663L, 0.975363285031235646193581759755216379L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (ctan, -2, -3, 0.376402564150424829275122113032269084e-2L, -1.00323862735360980144635859782192726L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (ctan, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
ctanh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(ctanh) (BUILD_COMPLEX (0, 0));
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (ctanh);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, 0, 0, 0.0, 0.0);
|
|
|
|
TEST_c_c (ctanh, 0, minus_zero, 0.0, minus_zero);
|
|
|
|
TEST_c_c (ctanh, minus_zero, 0, minus_zero, 0.0);
|
|
|
|
TEST_c_c (ctanh, minus_zero, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, plus_infty, 0, 1.0, 0.0);
|
|
|
|
TEST_c_c (ctanh, plus_infty, 1, 1.0, 0.0);
|
|
|
|
TEST_c_c (ctanh, plus_infty, minus_zero, 1.0, minus_zero);
|
|
|
|
TEST_c_c (ctanh, plus_infty, -1, 1.0, minus_zero);
|
|
|
|
TEST_c_c (ctanh, minus_infty, 0, -1.0, 0.0);
|
|
|
|
TEST_c_c (ctanh, minus_infty, 1, -1.0, 0.0);
|
|
|
|
TEST_c_c (ctanh, minus_infty, minus_zero, -1.0, minus_zero);
|
|
|
|
TEST_c_c (ctanh, minus_infty, -1, -1.0, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, 0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, 2, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, 0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, 2, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, minus_zero, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, -2, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, minus_zero, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_c_c (ctanh, -2, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, plus_infty, nan_value, 1.0, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_c_c (ctanh, minus_infty, nan_value, -1.0, 0.0, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, nan_value, 0, nan_value, 0.0);
|
|
|
|
TEST_c_c (ctanh, nan_value, minus_zero, nan_value, minus_zero);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, nan_value, 0.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctanh, nan_value, -4.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctanh, 5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctanh, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_c_c (ctanh, -0.25, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, nan_value, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_c_c (ctanh, 0, M_PI_4l, 0.0, 1.0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_c_c (ctanh, 0.75L, 1.25L, 1.37260757053378320258048606571226857L, 0.385795952609750664177596760720790220L);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_c_c (ctanh, -2, -3, -0.965385879022133124278480269394560686L, 0.988437503832249372031403430350121098e-2L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-20 21:22:24 +02:00
|
|
|
END (ctanh, complex);
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
erf_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(erf) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
START (erf);
|
|
|
|
|
|
|
|
TEST_f_f (erf, 0, 0);
|
|
|
|
TEST_f_f (erf, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (erf, plus_infty, 1);
|
|
|
|
TEST_f_f (erf, minus_infty, -1);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (erf, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (erf, 0.125L, 0.140316204801333817393029446521623398L);
|
|
|
|
TEST_f_f (erf, 0.75L, 0.711155633653515131598937834591410777L);
|
|
|
|
TEST_f_f (erf, 1.25L, 0.922900128256458230136523481197281140L);
|
|
|
|
TEST_f_f (erf, 2.0L, 0.995322265018952734162069256367252929L);
|
|
|
|
TEST_f_f (erf, 4.125L, 0.999999994576599200434933994687765914L);
|
|
|
|
TEST_f_f (erf, 27.0L, 1.0L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (erf);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
erfc_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(erfc) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
START (erfc);
|
|
|
|
|
|
|
|
TEST_f_f (erfc, plus_infty, 0.0);
|
|
|
|
TEST_f_f (erfc, minus_infty, 2.0);
|
|
|
|
TEST_f_f (erfc, 0.0, 1.0);
|
|
|
|
TEST_f_f (erfc, minus_zero, 1.0);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (erfc, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (erfc, 0.125L, 0.859683795198666182606970553478376602L);
|
|
|
|
TEST_f_f (erfc, 0.75L, 0.288844366346484868401062165408589223L);
|
|
|
|
TEST_f_f (erfc, 1.25L, 0.0770998717435417698634765188027188596L);
|
|
|
|
TEST_f_f (erfc, 2.0L, 0.00467773498104726583793074363274707139L);
|
|
|
|
TEST_f_f (erfc, 4.125L, 0.542340079956506600531223408575531062e-8L);
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
2006-01-28 01:15:15 +01:00
|
|
|
# if LDBL_MIN_10_EXP < -319
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (erfc, 27.0L, 0.523704892378925568501606768284954709e-318L);
|
2006-01-28 01:15:15 +01:00
|
|
|
# endif
|
2002-06-20 10:33:17 +02:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (erfc);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
exp_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(exp) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (exp);
|
|
|
|
|
|
|
|
TEST_f_f (exp, 0, 1);
|
|
|
|
TEST_f_f (exp, minus_zero, 1);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (exp, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (exp, minus_infty, 0);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (exp, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (exp, 1, M_El);
|
|
|
|
|
|
|
|
TEST_f_f (exp, 2, M_E2l);
|
|
|
|
TEST_f_f (exp, 3, M_E3l);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (exp, 0.75L, 2.11700001661267466854536981983709561L);
|
2001-05-07 23:29:40 +02:00
|
|
|
TEST_f_f (exp, 50.0L, 5184705528587072464087.45332293348538L);
|
2008-05-11 19:49:25 +02:00
|
|
|
TEST_f_f (exp, 88.72269439697265625L, 3.40233126623160774937554134772290447915e38L);
|
2008-05-22 21:59:10 +02:00
|
|
|
#if defined TEST_LDOUBLE && __LDBL_MAX_EXP__ > 1024
|
|
|
|
/* The result can only be represented in sane long double. */
|
2001-05-07 23:29:40 +02:00
|
|
|
TEST_f_f (exp, 1000.0L, 0.197007111401704699388887935224332313e435L);
|
|
|
|
#endif
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (exp);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
exp10_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(exp10) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
START (exp10);
|
|
|
|
|
|
|
|
TEST_f_f (exp10, 0, 1);
|
|
|
|
TEST_f_f (exp10, minus_zero, 1);
|
|
|
|
|
|
|
|
TEST_f_f (exp10, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (exp10, minus_infty, 0);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (exp10, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (exp10, 3, 1000);
|
Update.
2000-10-28 Jes Sorensen <jes@linuxcare.com>
* sysdeps/unix/sysv/linux/ia64/Versions: Export ioperm, iopl, inb,
inw, inl, _inb, _inw, _inl, outb, outw, outl, _outb, _outw,
_outl. Reported by Bill Nottingham.
2000-04-06 Andreas Schwab <schwab@suse.de>
* sysdeps/ia64/dl-machine.h (TRAMPOLINE_TEMPLATE): Save and
restore register r8 for functions that return a structure.
2000-10-12 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_PI_6l, M_E2l, M_E3l, M_2_SQRT_PIl,
M_SQRT_PIl): Increase precision.
(cbrt_test): If cbrt is not implemented, don't test it.
Add L suffix to double constants in results which differ from their
L suffixed counterparts.
(exp10_test, fmod_test, frexp_test, hypot_test, sqrt_test): Likewise.
* sysdeps/sparc/sparc64/fpu/libm-test-ulps: Update.
2000-10-11 Jakub Jelinek <jakub@redhat.com>
* inet/rexec.c (rexec_af): Convert rport to host order before
passing it to snprintf.
2000-10-14 Ulrich Drepper <drepper@redhat.com>
* sysdeps/gnu/netinet/tcp.h: Use u_intXX_t types instead of
uintXX_t since this is what <sys/types.h> defines and we include
this header. Reported by Bernhard Rosenkraenzer <bero@redhat.de>.
* intl/localealias.c (read_alias_file): Update string pointers
in map[] if realloc() changed the values.
Patch by Jakub Jelinek <jakub@redhat.com>.
* manual/stdio.texi: Update printf extension documentation after
z became a valid modifier.
Patch by Joseph S. Myers <jsm28@cam.ac.uk>.
* timezone/africa: Update from tzcode2000g and tzdata2000g.
* timezone/asia: Likewise.
* timezone/australasia: Likewise.
* timezone/backward: Likewise.
* timezone/europe: Likewise.
* timezone/iso3166.tab: Likewise.
* timezone/northamerica: Likewise.
* timezone/southamerica: Likewise.
* timezone/zone.tab: Likewise.
2000-10-15 04:17:30 +02:00
|
|
|
TEST_f_f (exp10, -1, 0.1L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (exp10, 1e6, plus_infty);
|
|
|
|
TEST_f_f (exp10, -1e6, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (exp10, 0.75L, 5.62341325190349080394951039776481231L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (exp10);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
exp2_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(exp2) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
START (exp2);
|
|
|
|
|
|
|
|
TEST_f_f (exp2, 0, 1);
|
|
|
|
TEST_f_f (exp2, minus_zero, 1);
|
|
|
|
TEST_f_f (exp2, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (exp2, minus_infty, 0);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (exp2, nan_value, nan_value);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (exp2, 10, 1024);
|
|
|
|
TEST_f_f (exp2, -1, 0.5);
|
|
|
|
TEST_f_f (exp2, 1e6, plus_infty);
|
|
|
|
TEST_f_f (exp2, -1e6, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (exp2, 0.75L, 1.68179283050742908606225095246642979L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (exp2);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
expm1_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(expm1) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (expm1);
|
|
|
|
|
|
|
|
TEST_f_f (expm1, 0, 0);
|
|
|
|
TEST_f_f (expm1, minus_zero, minus_zero);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (expm1, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (expm1, minus_infty, -1);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (expm1, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (expm1, 1, M_El - 1.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (expm1, 0.75L, 1.11700001661267466854536981983709561L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2009-05-16 04:53:09 +02:00
|
|
|
errno = 0;
|
|
|
|
TEST_f_f (expm1, 100000.0, plus_infty);
|
|
|
|
check_int ("errno for expm1(large) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (expm1);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
fabs_test (void)
|
|
|
|
{
|
|
|
|
START (fabs);
|
|
|
|
|
|
|
|
TEST_f_f (fabs, 0, 0);
|
|
|
|
TEST_f_f (fabs, minus_zero, 0);
|
|
|
|
|
|
|
|
TEST_f_f (fabs, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (fabs, minus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (fabs, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (fabs, 38.0, 38.0);
|
|
|
|
TEST_f_f (fabs, -M_El, M_El);
|
|
|
|
|
|
|
|
END (fabs);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
fdim_test (void)
|
|
|
|
{
|
|
|
|
START (fdim);
|
|
|
|
|
|
|
|
TEST_ff_f (fdim, 0, 0, 0);
|
|
|
|
TEST_ff_f (fdim, 9, 0, 9);
|
|
|
|
TEST_ff_f (fdim, 0, 9, 0);
|
|
|
|
TEST_ff_f (fdim, -9, 0, 0);
|
|
|
|
TEST_ff_f (fdim, 0, -9, 9);
|
|
|
|
|
|
|
|
TEST_ff_f (fdim, plus_infty, 9, plus_infty);
|
|
|
|
TEST_ff_f (fdim, plus_infty, -9, plus_infty);
|
|
|
|
TEST_ff_f (fdim, minus_infty, 9, 0);
|
|
|
|
TEST_ff_f (fdim, minus_infty, -9, 0);
|
|
|
|
TEST_ff_f (fdim, 9, minus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fdim, -9, minus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fdim, 9, plus_infty, 0);
|
|
|
|
TEST_ff_f (fdim, -9, plus_infty, 0);
|
|
|
|
|
|
|
|
TEST_ff_f (fdim, 0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (fdim, 9, nan_value, nan_value);
|
|
|
|
TEST_ff_f (fdim, -9, nan_value, nan_value);
|
|
|
|
TEST_ff_f (fdim, nan_value, 9, nan_value);
|
|
|
|
TEST_ff_f (fdim, nan_value, -9, nan_value);
|
|
|
|
TEST_ff_f (fdim, plus_infty, nan_value, nan_value);
|
|
|
|
TEST_ff_f (fdim, minus_infty, nan_value, nan_value);
|
|
|
|
TEST_ff_f (fdim, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_ff_f (fdim, nan_value, minus_infty, nan_value);
|
|
|
|
TEST_ff_f (fdim, nan_value, nan_value, nan_value);
|
|
|
|
|
2004-09-26 12:11:59 +02:00
|
|
|
TEST_ff_f (fdim, plus_infty, plus_infty, 0);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (fdim);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
floor_test (void)
|
|
|
|
{
|
|
|
|
START (floor);
|
|
|
|
|
|
|
|
TEST_f_f (floor, 0.0, 0.0);
|
|
|
|
TEST_f_f (floor, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (floor, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (floor, minus_infty, minus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (floor, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (floor, M_PIl, 3.0);
|
|
|
|
TEST_f_f (floor, -M_PIl, -4.0);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (floor, 0.1, 0.0);
|
2003-11-26 04:24:15 +01:00
|
|
|
TEST_f_f (floor, 0.25, 0.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (floor, 0.625, 0.0);
|
|
|
|
TEST_f_f (floor, -0.1, -1.0);
|
2003-11-26 04:24:15 +01:00
|
|
|
TEST_f_f (floor, -0.25, -1.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (floor, -0.625, -1.0);
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (floor, 4503599627370495.5L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370496.75L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370497.5L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (floor, 4503599627370494.5000000000001L, 4503599627370494.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370495.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (floor, 4503599627370496.5000000000001L, 4503599627370496.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (floor, -4503599627370495.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370496.25L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370496.5L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370496.75L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370497.5L, -4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (floor, -4503599627370494.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370495.5000000000001L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (floor, -4503599627370496.5000000000001L, -4503599627370497.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (floor, 9007199254740991.5L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740992.25L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740992.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740992.75L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740993.5L, 9007199254740993.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (floor, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740991.5000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740992.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, 9007199254740993.5000000000001L, 9007199254740993.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (floor, -9007199254740991.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740992.25L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740992.5L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740992.75L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740993.5L, -9007199254740994.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (floor, -9007199254740991.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740992.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740993.0000000000001L, -9007199254740994.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740991.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740992.5000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (floor, -9007199254740993.5000000000001L, -9007199254740994.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (floor, 72057594037927935.5L, 72057594037927935.0L);
|
|
|
|
TEST_f_f (floor, 72057594037927936.25L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (floor, 72057594037927936.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (floor, 72057594037927936.75L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (floor, 72057594037927937.5L, 72057594037927937.0L);
|
|
|
|
|
|
|
|
TEST_f_f (floor, -72057594037927935.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (floor, -72057594037927936.25L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (floor, -72057594037927936.5L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (floor, -72057594037927936.75L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (floor, -72057594037927937.5L, -72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (floor, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
|
|
|
|
TEST_f_f (floor, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (floor, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (floor, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (floor, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (floor);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
fma_test (void)
|
|
|
|
{
|
|
|
|
START (fma);
|
|
|
|
|
|
|
|
TEST_fff_f (fma, 1.0, 2.0, 3.0, 5.0);
|
|
|
|
TEST_fff_f (fma, nan_value, 2.0, 3.0, nan_value);
|
|
|
|
TEST_fff_f (fma, 1.0, nan_value, 3.0, nan_value);
|
|
|
|
TEST_fff_f (fma, 1.0, 2.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_fff_f (fma, plus_infty, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_fff_f (fma, minus_infty, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_fff_f (fma, 0.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_fff_f (fma, 0.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
|
|
|
|
TEST_fff_f (fma, plus_infty, 0.0, 1.0, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, minus_infty, 0.0, 1.0, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, 0.0, plus_infty, 1.0, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, 0.0, minus_infty, 1.0, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_fff_f (fma, plus_infty, plus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, minus_infty, minus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
|
2010-10-15 21:26:06 +02:00
|
|
|
TEST_fff_f (fma, plus_infty, 3.5L, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, minus_infty, -7.5L, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, -13.5L, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_fff_f (fma, minus_infty, 7.5L, plus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_fff_f (fma, 1.25L, 0.75L, 0.0625L, 1.0L);
|
2010-10-15 21:26:06 +02:00
|
|
|
|
|
|
|
FLOAT fltmax = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
|
|
|
|
LDBL_MAX, DBL_MAX, FLT_MAX);
|
|
|
|
TEST_fff_f (fma, -fltmax, -fltmax, minus_infty, minus_infty);
|
|
|
|
TEST_fff_f (fma, fltmax / 2, fltmax / 2, minus_infty, minus_infty);
|
|
|
|
TEST_fff_f (fma, -fltmax, fltmax, plus_infty, plus_infty);
|
|
|
|
TEST_fff_f (fma, fltmax / 2, -fltmax / 4, plus_infty, plus_infty);
|
|
|
|
TEST_fff_f (fma, plus_infty, 4, plus_infty, plus_infty);
|
|
|
|
TEST_fff_f (fma, 2, minus_infty, minus_infty, minus_infty);
|
|
|
|
TEST_fff_f (fma, minus_infty, minus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_fff_f (fma, plus_infty, minus_infty, minus_infty, minus_infty);
|
|
|
|
|
2010-10-14 04:27:03 +02:00
|
|
|
#if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
|
2010-10-11 15:27:05 +02:00
|
|
|
TEST_fff_f (fma, 0x1.7ff8p+13, 0x1.000002p+0, 0x1.ffffp-24, 0x1.7ff802p+13);
|
|
|
|
TEST_fff_f (fma, 0x1.fffp+0, 0x1.00001p+0, -0x1.fffp+0, 0x1.fffp-20);
|
2010-10-14 04:27:03 +02:00
|
|
|
TEST_fff_f (fma, 0x1.9abcdep+127, 0x0.9abcdep-126, -0x1.f08948p+0, 0x1.bb421p-25);
|
|
|
|
TEST_fff_f (fma, 0x1.9abcdep+100, 0x0.9abcdep-126, -0x1.f08948p-27, 0x1.bb421p-52);
|
|
|
|
TEST_fff_f (fma, 0x1.fffffep+127, 0x1.001p+0, -0x1.fffffep+127, 0x1.fffffep+115);
|
|
|
|
TEST_fff_f (fma, -0x1.fffffep+127, 0x1.fffffep+0, 0x1.fffffep+127, -0x1.fffffap+127);
|
|
|
|
TEST_fff_f (fma, 0x1.fffffep+127, 2.0, -0x1.fffffep+127, 0x1.fffffep+127);
|
|
|
|
#endif
|
|
|
|
#if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
|
|
|
|
TEST_fff_f (fma, 0x1.7fp+13, 0x1.0000000000001p+0, 0x1.ffep-48, 0x1.7f00000000001p+13);
|
|
|
|
TEST_fff_f (fma, 0x1.fffp+0, 0x1.0000000000001p+0, -0x1.fffp+0, 0x1.fffp-52);
|
|
|
|
TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, 0x1p-300, 1.0);
|
|
|
|
TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, -0x1p-300, 0x1.fffffffffffffp-1);
|
|
|
|
TEST_fff_f (fma, 0x1.deadbeef2feedp+1023, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp+1, 0x1.0989687bc9da4p-53);
|
|
|
|
TEST_fff_f (fma, 0x1.deadbeef2feedp+900, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp-122, 0x1.0989687bc9da4p-176);
|
|
|
|
TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 0x1.001p+0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1011);
|
|
|
|
TEST_fff_f (fma, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+0, 0x1.fffffffffffffp+1023, -0x1.ffffffffffffdp+1023);
|
|
|
|
TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 2.0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1023);
|
2010-10-15 21:25:14 +02:00
|
|
|
TEST_fff_f (fma, 0x1.6a09e667f3bccp-538, 0x1.6a09e667f3bccp-538, 0.0, 0.0);
|
|
|
|
TEST_fff_f (fma, 0x1.deadbeef2feedp-495, 0x1.deadbeef2feedp-495, -0x1.bf86a5786a574p-989, 0x0.0000042625a1fp-1022);
|
|
|
|
TEST_fff_f (fma, 0x1.deadbeef2feedp-503, 0x1.deadbeef2feedp-503, -0x1.bf86a5786a574p-1005, 0x0.0000000004262p-1022);
|
|
|
|
TEST_fff_f (fma, 0x1p-537, 0x1p-538, 0x1p-1074, 0x0.0000000000002p-1022);
|
|
|
|
TEST_fff_f (fma, 0x1.7fffff8p-968, 0x1p-106, 0x0.000001p-1022, 0x0.0000010000001p-1022);
|
|
|
|
TEST_fff_f (fma, 0x1.4000004p-967, 0x1p-106, 0x0.000001p-1022, 0x0.0000010000003p-1022);
|
|
|
|
TEST_fff_f (fma, 0x1.4p-967, -0x1p-106, -0x0.000001p-1022, -0x0.0000010000002p-1022);
|
|
|
|
TEST_fff_f (fma, -0x1.19cab66d73e17p-959, 0x1.c7108a8c5ff51p-107, -0x0.80b0ad65d9b64p-1022, -0x0.80b0ad65d9d59p-1022);
|
|
|
|
TEST_fff_f (fma, -0x1.d2eaed6e8e9d3p-979, -0x1.4e066c62ac9ddp-63, -0x0.9245e6b003454p-1022, -0x0.9245c09c5fb5dp-1022);
|
|
|
|
TEST_fff_f (fma, 0x1.153d650bb9f06p-907, 0x1.2d01230d48407p-125, -0x0.b278d5acfc3cp-1022, -0x0.b22757123bbe9p-1022);
|
2010-10-15 21:26:06 +02:00
|
|
|
TEST_fff_f (fma, -0x1.fffffffffffffp-711, 0x1.fffffffffffffp-275, 0x1.fffffe00007ffp-983, 0x1.7ffffe00007ffp-983);
|
|
|
|
#endif
|
|
|
|
#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 64
|
|
|
|
TEST_fff_f (fma, -0x8.03fcp+3696L, 0xf.fffffffffffffffp-6140L, 0x8.3ffffffffffffffp-2450L, -0x8.01ecp-2440L);
|
|
|
|
TEST_fff_f (fma, 0x9.fcp+2033L, -0x8.000e1f000ff800fp-3613L, -0xf.fffffffffffc0ffp-1579L, -0xd.fc119fb093ed092p-1577L);
|
|
|
|
TEST_fff_f (fma, 0xc.7fc000003ffffffp-1194L, 0x8.1e0003fffffffffp+15327L, -0x8.fffep+14072L, 0xc.ae9f164020effffp+14136L);
|
|
|
|
TEST_fff_f (fma, -0x8.0001fc000000003p+1798L, 0xcp-2230L, 0x8.f7e000000000007p-468L, -0xc.0002f9ffee10404p-429L);
|
|
|
|
TEST_fff_f (fma, 0xc.0000000000007ffp+10130L, -0x8.000000000000001p+4430L, 0xc.07000000001ffffp+14513L, -0xb.fffffffffffd7e4p+14563L);
|
|
|
|
TEST_fff_f (fma, 0xb.ffffp-4777L, 0x8.000000fffffffffp-11612L, -0x0.3800fff8p-16385L, 0x5.c7fe80c7ffeffffp-16385L);
|
2010-10-11 15:27:05 +02:00
|
|
|
#endif
|
2010-10-18 13:29:50 +02:00
|
|
|
#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 113
|
|
|
|
TEST_fff_f (fma, 0x1.bb2de33e02ccbbfa6e245a7c1f71p-2584L, -0x1.6b500daf0580d987f1bc0cadfcddp-13777L, 0x1.613cd91d9fed34b33820e5ab9d8dp-16378L, -0x1.3a79fb50eb9ce887cffa0f09bd9fp-16360L);
|
|
|
|
TEST_fff_f (fma, -0x1.f949b880cacb0f0c61540105321dp-5954L, -0x1.3876cec84b4140f3bd6198731b7ep-10525L, -0x0.a5dc1c6cfbc498c54fb0b504bf19p-16382L, -0x0.a5dc1c6cfbc498c54fb0b5038abbp-16382L);
|
|
|
|
TEST_fff_f (fma, -0x1.0000fffffffffp-16221L, 0x1.0000001fffff8007fep-239L, 0x0.ff87ffffffffffffe000003fffffp-16382L, 0x0.ff87ffffffffffffdffc003bff7fp-16382L);
|
|
|
|
TEST_fff_f (fma, -0x1.ac79c9376ef447f3827c9e9de008p-2228L, -0x1.5ba830022b6139e21fbe7270cad8p-6314L, 0x1.e8282b6a26bb6a9daf5c8e73e9f9p-8616L, 0x1.22f14a0253878a730cd1aee373adp-8541L);
|
|
|
|
TEST_fff_f (fma, -0x1.c69749ec574caaa2ab8e97ddb9f3p+2652L, 0x1.f34235ff9d095449c29b4831b62dp+3311L, 0x1.fbe4302df23354dbd0c4d3cfe606p+5879L, -0x1.bb473bfdfb7a6e18886ce6e57eafp+5964L);
|
|
|
|
TEST_fff_f (fma, -0x1.ca8835fc6ecfb5398625fc891be5p-1686L, 0x1.621e1972bbe2180e5be9dd7d8df5p-7671L, -0x1.7d2d21b73b52cf20dec2a83902a4p-9395L, -0x1.3d2322191c9c88bc68a62ab8042cp-9356L);
|
|
|
|
TEST_fff_f (fma, -0x1.55cff679ec49c2541fab41fc843ep-11819L, 0x1.e60e9f464f9e8df0509647c7c971p+12325L, 0x1.eaa2a7649d765c2f564f7a5beca7p+454L, -0x1.447e29fa7e406a285f4e350fcf86p+507L);
|
|
|
|
TEST_fff_f (fma, 0x1.f0e7b1454908576f2537d863cf9bp+11432L, 0x1.cdce52f09d4ca76e68706f34b5d5p-1417L, -0x1.2e986187c70f146235ea2066e486p+9979L, 0x1.c030dad3cc5643f3dd0f5619f661p+10016L);
|
|
|
|
TEST_fff_f (fma, 0x1.f102f7da4a57a3a4aab620e29452p-3098L, -0x1.cc06a4ff40248f9e2dcc4b6afd84p-11727L, 0x1.d512a11126b5ac8ed8973b8580c8p-14849L, -0x1.be8f1cf737ab4d1c31c54f5ec23bp-14824L);
|
|
|
|
TEST_fff_f (fma, -0x1.fc47ac7434b993cd8dcb2b431f25p-3816L, 0x1.fbc9750da8468852d84558e1db6dp-5773L, -0x1.00a98abf783f75c40fe5b7a37d86p-9607L, -0x1.f81917b166f45e763cfcc057e2adp-9588L);
|
|
|
|
TEST_fff_f (fma, 0x1.00000000000007ffffffffffffffp-9045L, -0x1.ffffffffffff80000001ffffffffp+4773L, -0x1.f8p-4316L, -0x1.00000000000f88000000fffffdffp-4271L);
|
|
|
|
TEST_fff_f (fma, 0x1.4e922764c90701d4a2f21d01893dp-8683L, -0x1.955a12e2d7c9447c27fa022fc865p+212L, -0x1.e9634462eaef96528b90b6944578p-8521L, -0x1.08e1783184a371943d3598e10865p-8470L);
|
|
|
|
TEST_fff_f (fma, 0x1.801181509c03bdbef10d6165588cp-15131L, 0x1.ad86f8e57d3d40bfa8007780af63p-368L, -0x1.6e9df0dab1c9f1d7a6043c390741p-15507L, 0x1.417c9b2b15e2ad57dc9e0e920844p-15498L);
|
|
|
|
#endif
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (fma);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
fmax_test (void)
|
|
|
|
{
|
|
|
|
START (fmax);
|
|
|
|
|
|
|
|
TEST_ff_f (fmax, 0, 0, 0);
|
|
|
|
TEST_ff_f (fmax, minus_zero, minus_zero, minus_zero);
|
|
|
|
TEST_ff_f (fmax, 9, 0, 9);
|
|
|
|
TEST_ff_f (fmax, 0, 9, 9);
|
|
|
|
TEST_ff_f (fmax, -9, 0, 0);
|
|
|
|
TEST_ff_f (fmax, 0, -9, 0);
|
|
|
|
|
|
|
|
TEST_ff_f (fmax, plus_infty, 9, plus_infty);
|
|
|
|
TEST_ff_f (fmax, 0, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fmax, -9, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fmax, plus_infty, -9, plus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (fmax, minus_infty, 9, 9);
|
|
|
|
TEST_ff_f (fmax, minus_infty, -9, -9);
|
|
|
|
TEST_ff_f (fmax, 9, minus_infty, 9);
|
|
|
|
TEST_ff_f (fmax, -9, minus_infty, -9);
|
|
|
|
|
|
|
|
TEST_ff_f (fmax, 0, nan_value, 0);
|
|
|
|
TEST_ff_f (fmax, 9, nan_value, 9);
|
|
|
|
TEST_ff_f (fmax, -9, nan_value, -9);
|
|
|
|
TEST_ff_f (fmax, nan_value, 0, 0);
|
|
|
|
TEST_ff_f (fmax, nan_value, 9, 9);
|
|
|
|
TEST_ff_f (fmax, nan_value, -9, -9);
|
|
|
|
TEST_ff_f (fmax, plus_infty, nan_value, plus_infty);
|
|
|
|
TEST_ff_f (fmax, minus_infty, nan_value, minus_infty);
|
|
|
|
TEST_ff_f (fmax, nan_value, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fmax, nan_value, minus_infty, minus_infty);
|
|
|
|
TEST_ff_f (fmax, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
END (fmax);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
fmin_test (void)
|
|
|
|
{
|
|
|
|
START (fmin);
|
|
|
|
|
|
|
|
TEST_ff_f (fmin, 0, 0, 0);
|
|
|
|
TEST_ff_f (fmin, minus_zero, minus_zero, minus_zero);
|
|
|
|
TEST_ff_f (fmin, 9, 0, 0);
|
|
|
|
TEST_ff_f (fmin, 0, 9, 0);
|
|
|
|
TEST_ff_f (fmin, -9, 0, -9);
|
|
|
|
TEST_ff_f (fmin, 0, -9, -9);
|
|
|
|
|
|
|
|
TEST_ff_f (fmin, plus_infty, 9, 9);
|
|
|
|
TEST_ff_f (fmin, 9, plus_infty, 9);
|
|
|
|
TEST_ff_f (fmin, plus_infty, -9, -9);
|
|
|
|
TEST_ff_f (fmin, -9, plus_infty, -9);
|
|
|
|
TEST_ff_f (fmin, minus_infty, 9, minus_infty);
|
|
|
|
TEST_ff_f (fmin, minus_infty, -9, minus_infty);
|
|
|
|
TEST_ff_f (fmin, 9, minus_infty, minus_infty);
|
|
|
|
TEST_ff_f (fmin, -9, minus_infty, minus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (fmin, 0, nan_value, 0);
|
|
|
|
TEST_ff_f (fmin, 9, nan_value, 9);
|
|
|
|
TEST_ff_f (fmin, -9, nan_value, -9);
|
|
|
|
TEST_ff_f (fmin, nan_value, 0, 0);
|
|
|
|
TEST_ff_f (fmin, nan_value, 9, 9);
|
|
|
|
TEST_ff_f (fmin, nan_value, -9, -9);
|
|
|
|
TEST_ff_f (fmin, plus_infty, nan_value, plus_infty);
|
|
|
|
TEST_ff_f (fmin, minus_infty, nan_value, minus_infty);
|
|
|
|
TEST_ff_f (fmin, nan_value, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (fmin, nan_value, minus_infty, minus_infty);
|
|
|
|
TEST_ff_f (fmin, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
END (fmin);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
fmod_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(fmod) (6.5, 2.3L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (fmod);
|
|
|
|
|
|
|
|
/* fmod (+0, y) == +0 for y != 0. */
|
|
|
|
TEST_ff_f (fmod, 0, 3, 0);
|
|
|
|
|
|
|
|
/* fmod (-0, y) == -0 for y != 0. */
|
|
|
|
TEST_ff_f (fmod, minus_zero, 3, minus_zero);
|
|
|
|
|
|
|
|
/* fmod (+inf, y) == NaN plus invalid exception. */
|
2009-04-26 05:43:02 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (fmod, plus_infty, 3, nan_value, INVALID_EXCEPTION);
|
2009-04-26 05:43:02 +02:00
|
|
|
check_int ("errno for fmod(Inf,3) unchanged", errno, EDOM, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* fmod (-inf, y) == NaN plus invalid exception. */
|
2009-04-26 05:43:02 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (fmod, minus_infty, 3, nan_value, INVALID_EXCEPTION);
|
2009-04-26 05:43:02 +02:00
|
|
|
check_int ("errno for fmod(-Inf,3) unchanged", errno, EDOM, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* fmod (x, +0) == NaN plus invalid exception. */
|
2009-04-26 05:43:02 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (fmod, 3, 0, nan_value, INVALID_EXCEPTION);
|
2009-04-26 05:43:02 +02:00
|
|
|
check_int ("errno for fmod(3,0) unchanged", errno, EDOM, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* fmod (x, -0) == NaN plus invalid exception. */
|
|
|
|
TEST_ff_f (fmod, 3, minus_zero, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
/* fmod (x, +inf) == x for x not infinite. */
|
|
|
|
TEST_ff_f (fmod, 3.0, plus_infty, 3.0);
|
|
|
|
/* fmod (x, -inf) == x for x not infinite. */
|
|
|
|
TEST_ff_f (fmod, 3.0, minus_infty, 3.0);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_ff_f (fmod, nan_value, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (fmod, 6.5, 2.25L, 2.0L);
|
|
|
|
TEST_ff_f (fmod, -6.5, 2.25L, -2.0L);
|
|
|
|
TEST_ff_f (fmod, 6.5, -2.25L, 2.0L);
|
|
|
|
TEST_ff_f (fmod, -6.5, -2.25L, -2.0L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (fmod);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
fpclassify_test (void)
|
|
|
|
{
|
|
|
|
START (fpclassify);
|
|
|
|
|
|
|
|
TEST_f_i (fpclassify, nan_value, FP_NAN);
|
|
|
|
TEST_f_i (fpclassify, plus_infty, FP_INFINITE);
|
|
|
|
TEST_f_i (fpclassify, minus_infty, FP_INFINITE);
|
|
|
|
TEST_f_i (fpclassify, plus_zero, FP_ZERO);
|
|
|
|
TEST_f_i (fpclassify, minus_zero, FP_ZERO);
|
|
|
|
TEST_f_i (fpclassify, 1000, FP_NORMAL);
|
|
|
|
|
|
|
|
END (fpclassify);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
frexp_test (void)
|
|
|
|
{
|
|
|
|
int x;
|
|
|
|
|
|
|
|
START (frexp);
|
|
|
|
|
|
|
|
TEST_fI_f1 (frexp, plus_infty, plus_infty, IGNORE);
|
|
|
|
TEST_fI_f1 (frexp, minus_infty, minus_infty, IGNORE);
|
|
|
|
TEST_fI_f1 (frexp, nan_value, nan_value, IGNORE);
|
|
|
|
|
|
|
|
TEST_fI_f1 (frexp, 0.0, 0.0, 0.0);
|
|
|
|
TEST_fI_f1 (frexp, minus_zero, minus_zero, 0.0);
|
|
|
|
|
2000-10-15 08:50:42 +02:00
|
|
|
TEST_fI_f1 (frexp, 12.8L, 0.8L, 4);
|
|
|
|
TEST_fI_f1 (frexp, -27.34L, -0.854375L, 5);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (frexp);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
gamma_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(gamma) (1);
|
|
|
|
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
|
|
|
|
|
|
|
START (gamma);
|
|
|
|
|
|
|
|
TEST_f_f (gamma, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (gamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (gamma, -3, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
1999-10-20 05:20:31 +02:00
|
|
|
TEST_f_f (gamma, minus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (gamma, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f1 (gamma, 1, 0, 1);
|
|
|
|
TEST_f_f1 (gamma, 3, M_LN2l, 1);
|
|
|
|
|
|
|
|
TEST_f_f1 (gamma, 0.5, M_LOG_SQRT_PIl, 1);
|
1999-10-20 05:20:31 +02:00
|
|
|
TEST_f_f1 (gamma, -0.5, M_LOG_2_SQRT_PIl, -1);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (gamma);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
hypot_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(hypot) (0.7L, 12.4L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (hypot);
|
|
|
|
|
|
|
|
TEST_ff_f (hypot, plus_infty, 1, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
TEST_ff_f (hypot, minus_infty, 1, plus_infty, IGNORE_ZERO_INF_SIGN);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (hypot, plus_infty, nan_value, plus_infty);
|
|
|
|
TEST_ff_f (hypot, minus_infty, nan_value, plus_infty);
|
|
|
|
TEST_ff_f (hypot, nan_value, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (hypot, nan_value, minus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (hypot, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
/* hypot (x,y) == hypot (+-x, +-y) */
|
2000-10-27 01:41:17 +02:00
|
|
|
TEST_ff_f (hypot, 0.7L, 12.4L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, -0.7L, 12.4L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, 0.7L, -12.4L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, -0.7L, -12.4L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, 12.4L, 0.7L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, -12.4L, 0.7L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, 12.4L, -0.7L, 12.419742348374220601176836866763271L);
|
|
|
|
TEST_ff_f (hypot, -12.4L, -0.7L, 12.419742348374220601176836866763271L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* hypot (x,0) == fabs (x) */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (hypot, 0.75L, 0, 0.75L);
|
|
|
|
TEST_ff_f (hypot, -0.75L, 0, 0.75L);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (hypot, -5.7e7, 0, 5.7e7L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (hypot, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (hypot);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
ilogb_test (void)
|
|
|
|
{
|
|
|
|
START (ilogb);
|
|
|
|
|
|
|
|
TEST_f_i (ilogb, 1, 0);
|
|
|
|
TEST_f_i (ilogb, M_El, 1);
|
|
|
|
TEST_f_i (ilogb, 1024, 10);
|
|
|
|
TEST_f_i (ilogb, -2000, 10);
|
|
|
|
|
|
|
|
/* XXX We have a problem here: the standard does not tell us whether
|
|
|
|
exceptions are allowed/required. ignore them for now. */
|
|
|
|
|
|
|
|
TEST_f_i (ilogb, 0.0, FP_ILOGB0, EXCEPTIONS_OK);
|
|
|
|
TEST_f_i (ilogb, nan_value, FP_ILOGBNAN, EXCEPTIONS_OK);
|
Update.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* iconv/loop.c (UNICODE_TAG_HANDLER): New macro.
* iconv/gconv_simple.c (__gconv_transform_internal_ascii): Invoke
UNICODE_TAG_HANDLER.
(__gconv_transform_internal_ucs2): Likewise.
(__gconv_transform_internal_ucs2reverse): Likewise.
* iconvdata/8bit-gap.c (BODY for TO_LOOP): Invoke UNICODE_TAG_HANDLER.
* iconvdata/8bit-generic.c (BODY for TO_LOOP): Likewise.
* iconvdata/ansi_x3.110.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5hkscs.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1255.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1258.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-jp.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-tw.c (BODY for TO_LOOP): Likewise.
* iconvdata/gbk.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm930.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm932.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm933.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm935.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm937.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm939.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm943.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso646.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso8859-1.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937-2.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn-ext.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/johab.c (BODY for TO_LOOP): Likewise.
* iconvdata/sjis.c (BODY for TO_LOOP): Likewise.
* iconvdata/t.61.c (BODY for TO_LOOP): Likewise.
* iconvdata/uhc.c (BODY for TO_LOOP): Likewise.
* iconvdata/unicode.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-jp.c (TAG_none, TAG_language, TAG_language_j,
TAG_language_ja, TAG_language_k, TAG_language_ko, TAG_language_z,
TAG_language_zh, CURRENT_TAG_MASK): New enum values.
(EMIT_SHIFT_TO_INIT): Don't emit an escape sequence if ASCII_set
is already selected but set2 or tag are set.
(conversion): New enum type.
(cvlist_t): New type.
(CVLIST, CVLIST_FIRST, CVLIST_REST): New macros.
(conversion_lists): New array.
(BODY for TO_LOOP): Keep track of Unicode 3.1 language tag. If "ja",
prefer conversion to Japanese character sets. If "zh", prefer
conversion to GB2312. If "ko", prefer conversion to KSC5601. Small
optimizations.
(INIT_PARAMS): Add tag.
(UPDATE_PARAMS): Add tag.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* locale/programs/locfile.c (write_locale_data): Before creat(),
unlink the file, to avoid crashing the processes that mmap it. Change
a double slash to a single slash. Free fname in case of error return.
2001-06-02 Jakub Jelinek <jakub@redhat.com>
* sysdeps/i386/fpu/s_frexpl.S (__frexpl): Mostly revert 2000-12-03
changes, do the special handling for denormal numbers, not for
normalized numbers (patch by <trevin@xmission.com>).
* math/test-misc.c (main): Test frexpl with denormal arguments.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (llround_test): Add two new llround tests.
* sysdeps/ieee754/ldbl-96/s_llroundl.c (__llroundl): Don't allow
overflow when rounding away from zero.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/Makefile (libm-calls): Add e_log2, w_log2, remove s_log2.
* math/math_private.h (__ieee754_log2, __ieee754_log2f,
__ieee754_log2l): New prototypes.
* sysdeps/generic/w_log2.c: New file.
* sysdeps/generic/w_log2f.c: New file.
* sysdeps/generic/w_log2l.c: New file.
* sysdeps/generic/s_log2l.c: Move...
* sysdeps/generic/e_log2l.c: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/k_standard.c (__kernel_standard): Handle log2(0)
and log2(x < 0).
* sysdeps/i386/fpu/s_log2.S: Move...
* sysdeps/i386/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/i386/fpu/s_log2f.S: Move...
* sysdeps/i386/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/i386/fpu/s_log2l.S: Move...
* sysdeps/i386/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/m68k/fpu/s_log2.S: Move...
* sysdeps/m68k/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/m68k/fpu/s_log2f.S: Move...
* sysdeps/m68k/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/m68k/fpu/s_log2l.S: Move...
* sysdeps/m68k/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/dbl-64/s_log2.c: Move...
* sysdeps/ieee754/dbl-64/e_log2.c: ...to here. Rename to
__ieee754_log2.
* sysdeps/ieee754/flt-32/s_log2f.c: Move...
* sysdeps/ieee754/flt-32/e_log2f.c: ...to here. Rename to
__ieee754_log2f.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_exp2.c (u_threshold): Lower threshold so that
even arguments which result in denormalized exp2 are accepted.
(__exp2): Arguments equal to u_threshold already result into
underflow.
* sysdeps/generic/w_exp2f.c (u_threshold, __exp2f): Likewise.
* sysdeps/generic/w_exp2l.c (u_threshold, __exp2l): Likewise.
* sysdeps/ieee754/dbl-64/e_exp2.c (__ieee754_exp2): Lomark was too
low, with corrected lowmark use greaterequal, not greater.
* sysdeps/ieee754/flt-32/e_exp2f.c (__ieee754_exp2f): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (ilogb_test): Test that ilogb(+-Inf) == INT_MAX.
* sysdeps/i386/fpu/s_ilogb.S (__ilogb): Return INT_MAX for +-Inf.
* sysdeps/i386/fpu/s_ilogbf.S (__ilogbf): Likewise.
* sysdeps/i386/fpu/s_ilogbl.S (__ilogbl): Likewise.
* sysdeps/ieee754/dbl-64/s_ilogb.c (__ilogb): Likewise.
* sysdeps/ieee754/flt-32/s_ilogbf.c (__ilogbf): Likewise.
* sysdeps/ieee754/ldbl-128/s_ilogbl.c (__ilogbl): Likewise.
* sysdeps/ieee754/ldbl-96/s_ilogbl.c (__ilogbl): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_coshl.c (__coshl): Test if finite argument
gave non-finite result instead of using constant in generic
version.
* sysdeps/generic/w_coshf.c (__coshf): Likewise.
* sysdeps/generic/w_cosh.c (__cosh): Likewise.
* sysdeps/generic/w_exp10.c (o_threshold, u_threshold): Remove.
(__exp10): Test if finite argument gave non-finite result.
* sysdeps/generic/w_exp10f.c (o_threshold, u_threshold, __exp10f):
Likewise.
* sysdeps/generic/w_exp10l.c (o_threshold, u_threshold, __exp10l):
Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-96/e_coshl.c (__ieee754_coshl): Fix
overflow threshold constant (log(LDBL_MAX)+M_LN2l).
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/programs/ld-ctype.c (idx_table): New struct type.
(idx_table_init, idx_table_get, idx_table_add): New functions.
(MAX_CHARNAMES_IDX): Remove macro.
(locale_ctype_t): Change type of charnames_idx field.
(ctype_startup): Change initialization of charnames_idx field.
(find_idx): Use idx_table_get and idx_table_add for speed.
* locale/programs/charmap.c (charmap_new_char): Fix ucs4 value
computation of characters in a range.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/gb18030.c (__fourbyte_to_ucs1): Add mappings for <U03F4>,
<U03F5>.
(__ucs_to_gb18030_tab1): Likewise.
(BODY for FROM_LOOP): Add mapping for <U00010000>..<U0010FFFF>.
(BODY for TO_LOOP): Likewise.
* iconvdata/tst-table-charmap.sh: Update for charmaps containing
<U00xxxxxx> syntax.
* iconvdata/tst-table-from.c (bmp_only): New variable.
(utf8_decode): If bmp_only, don't return characters outside Unicode
plane 0.
(main): When testing UTF-8 or GB18030, set bmp_only to 1. Don't print
a conversion line if utf8_decode returns NULL.
* iconvdata/tst-table-to.c (main): When testing encodings other than
UTF-8 and GB18030, loop upto U+30000 instead of U+10000. Use UTF-8
instead of UCS-2 as input.
* iconvdata/tst-table.sh: For GB18030, use only the part < 0x10000
of the charmap.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/cns11643l1.c: Update to Unicode 3.1.
(__cns11643l1_to_ucs4_tab): Regenerated.
(__cns11643l1_from_ucs4_tab12): Regenerated.
* iconvdata/cns11643.c: Update to Unicode 3.1.
(__cns11643l14_to_ucs4_tab): Remove array.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New arrays.
(__cns11643_from_ucs4p0_tab): Renamed from __cns11643_from_ucs4_tab.
(__cns11643_from_ucs4p2_tab): New array.
* iconvdata/cns11643.h (__cns11643l14_to_ucs4_tab): Remove declaration.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New declarations.
(cns11643_to_ucs4): Treat planes 3, 4, 5, 6, 7, 15 instead of 14.
(__cns11643_from_ucs4_tab): Remove declaration.
(__cns11643_from_ucs4p0_tab, __cns11643_from_ucs4p2_tab): New
declarations.
(ucs4_to_cns11643): Update for new arrays. Treat U+3400..U+4DFF and
U+20000..U+2A6D6.
* iconvdata/cns11643l2.h (__cns11643_from_ucs4_tab): Remove
declaration.
(__cns11643_from_ucs4p0_tab): New declaration.
(ucs4_to_cns11643l2): Update for new arrays.
* iconvdata/iso-2022-cn-ext.c (BODY for FROM_LOOP): Handle planes
3 to 7.
(BODY for TO_LOOP): Handle planes 3 to 7, instead of plane 14.
* iconvdata/EUC-TW.irreversible: New file.
* iconvdata/tst-table.sh: Use it.
* iconvdata/Makefile (distribute): Add CP1255.irreversible,
CP1258.irreversible, EUC-TW.irreversible.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/C-translit.h.in: Add transliterations for new Unicode 3.1
mathematical symbols.
2001-06-06 14:55:46 +02:00
|
|
|
TEST_f_i (ilogb, plus_infty, INT_MAX, EXCEPTIONS_OK);
|
|
|
|
TEST_f_i (ilogb, minus_infty, INT_MAX, EXCEPTIONS_OK);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (ilogb);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
isfinite_test (void)
|
|
|
|
{
|
|
|
|
START (isfinite);
|
|
|
|
|
|
|
|
TEST_f_b (isfinite, 0, 1);
|
|
|
|
TEST_f_b (isfinite, minus_zero, 1);
|
|
|
|
TEST_f_b (isfinite, 10, 1);
|
|
|
|
TEST_f_b (isfinite, plus_infty, 0);
|
|
|
|
TEST_f_b (isfinite, minus_infty, 0);
|
|
|
|
TEST_f_b (isfinite, nan_value, 0);
|
|
|
|
|
|
|
|
END (isfinite);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
isnormal_test (void)
|
|
|
|
{
|
|
|
|
START (isnormal);
|
|
|
|
|
|
|
|
TEST_f_b (isnormal, 0, 0);
|
|
|
|
TEST_f_b (isnormal, minus_zero, 0);
|
|
|
|
TEST_f_b (isnormal, 10, 1);
|
|
|
|
TEST_f_b (isnormal, plus_infty, 0);
|
|
|
|
TEST_f_b (isnormal, minus_infty, 0);
|
|
|
|
TEST_f_b (isnormal, nan_value, 0);
|
|
|
|
|
|
|
|
END (isnormal);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
j0_test (void)
|
|
|
|
{
|
2001-02-15 04:23:39 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(j0) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
START (j0);
|
|
|
|
|
|
|
|
/* j0 is the Bessel function of the first kind of order 0 */
|
|
|
|
TEST_f_f (j0, nan_value, nan_value);
|
|
|
|
TEST_f_f (j0, plus_infty, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (j0, -1.0, 0.765197686557966551449717526102663221L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (j0, 0.0, 1.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (j0, 0.125L, 0.996097563041985204620768999453174712L);
|
|
|
|
TEST_f_f (j0, 0.75L, 0.864242275166648623555731103820923211L);
|
|
|
|
TEST_f_f (j0, 1.0, 0.765197686557966551449717526102663221L);
|
|
|
|
TEST_f_f (j0, 1.5, 0.511827671735918128749051744283411720L);
|
|
|
|
TEST_f_f (j0, 2.0, 0.223890779141235668051827454649948626L);
|
|
|
|
TEST_f_f (j0, 8.0, 0.171650807137553906090869407851972001L);
|
|
|
|
TEST_f_f (j0, 10.0, -0.245935764451348335197760862485328754L);
|
2001-08-27 15:55:13 +02:00
|
|
|
TEST_f_f (j0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
|
|
|
|
TEST_f_f (j0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (j0);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
j1_test (void)
|
|
|
|
{
|
2001-02-15 04:39:03 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(j1) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* j1 is the Bessel function of the first kind of order 1 */
|
|
|
|
|
|
|
|
START (j1);
|
|
|
|
|
|
|
|
TEST_f_f (j1, nan_value, nan_value);
|
|
|
|
TEST_f_f (j1, plus_infty, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (j1, -1.0, -0.440050585744933515959682203718914913L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (j1, 0.0, 0.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (j1, 0.125L, 0.0623780091344946810942311355879361177L);
|
|
|
|
TEST_f_f (j1, 0.75L, 0.349243602174862192523281016426251335L);
|
|
|
|
TEST_f_f (j1, 1.0, 0.440050585744933515959682203718914913L);
|
|
|
|
TEST_f_f (j1, 1.5, 0.557936507910099641990121213156089400L);
|
|
|
|
TEST_f_f (j1, 2.0, 0.576724807756873387202448242269137087L);
|
|
|
|
TEST_f_f (j1, 8.0, 0.234636346853914624381276651590454612L);
|
|
|
|
TEST_f_f (j1, 10.0, 0.0434727461688614366697487680258592883L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (j1);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
jn_test (void)
|
|
|
|
{
|
2001-02-15 04:39:03 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(jn) (1, 1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* jn is the Bessel function of the first kind of order n. */
|
|
|
|
START (jn);
|
|
|
|
|
|
|
|
/* jn (0, x) == j0 (x) */
|
|
|
|
TEST_ff_f (jn, 0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (jn, 0, plus_infty, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 0, -1.0, 0.765197686557966551449717526102663221L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (jn, 0, 0.0, 1.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 0, 0.125L, 0.996097563041985204620768999453174712L);
|
|
|
|
TEST_ff_f (jn, 0, 0.75L, 0.864242275166648623555731103820923211L);
|
|
|
|
TEST_ff_f (jn, 0, 1.0, 0.765197686557966551449717526102663221L);
|
|
|
|
TEST_ff_f (jn, 0, 1.5, 0.511827671735918128749051744283411720L);
|
|
|
|
TEST_ff_f (jn, 0, 2.0, 0.223890779141235668051827454649948626L);
|
|
|
|
TEST_ff_f (jn, 0, 8.0, 0.171650807137553906090869407851972001L);
|
|
|
|
TEST_ff_f (jn, 0, 10.0, -0.245935764451348335197760862485328754L);
|
|
|
|
TEST_ff_f (jn, 0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
|
|
|
|
TEST_ff_f (jn, 0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* jn (1, x) == j1 (x) */
|
|
|
|
TEST_ff_f (jn, 1, nan_value, nan_value);
|
|
|
|
TEST_ff_f (jn, 1, plus_infty, 0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 1, -1.0, -0.440050585744933515959682203718914913L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (jn, 1, 0.0, 0.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 1, 0.125L, 0.0623780091344946810942311355879361177L);
|
|
|
|
TEST_ff_f (jn, 1, 0.75L, 0.349243602174862192523281016426251335L);
|
|
|
|
TEST_ff_f (jn, 1, 1.0, 0.440050585744933515959682203718914913L);
|
|
|
|
TEST_ff_f (jn, 1, 1.5, 0.557936507910099641990121213156089400L);
|
|
|
|
TEST_ff_f (jn, 1, 2.0, 0.576724807756873387202448242269137087L);
|
|
|
|
TEST_ff_f (jn, 1, 8.0, 0.234636346853914624381276651590454612L);
|
|
|
|
TEST_ff_f (jn, 1, 10.0, 0.0434727461688614366697487680258592883L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* jn (3, x) */
|
|
|
|
TEST_ff_f (jn, 3, nan_value, nan_value);
|
|
|
|
TEST_ff_f (jn, 3, plus_infty, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 3, -1.0, -0.0195633539826684059189053216217515083L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (jn, 3, 0.0, 0.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 3, 0.125L, 0.406503832554912875023029337653442868e-4L);
|
|
|
|
TEST_ff_f (jn, 3, 0.75L, 0.848438342327410884392755236884386804e-2L);
|
|
|
|
TEST_ff_f (jn, 3, 1.0, 0.0195633539826684059189053216217515083L);
|
|
|
|
TEST_ff_f (jn, 3, 2.0, 0.128943249474402051098793332969239835L);
|
|
|
|
TEST_ff_f (jn, 3, 10.0, 0.0583793793051868123429354784103409563L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* jn (10, x) */
|
|
|
|
TEST_ff_f (jn, 10, nan_value, nan_value);
|
|
|
|
TEST_ff_f (jn, 10, plus_infty, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 10, -1.0, 0.263061512368745320699785368779050294e-9L);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (jn, 10, 0.0, 0.0);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (jn, 10, 0.125L, 0.250543369809369890173993791865771547e-18L);
|
|
|
|
TEST_ff_f (jn, 10, 0.75L, 0.149621713117596814698712483621682835e-10L);
|
|
|
|
TEST_ff_f (jn, 10, 1.0, 0.263061512368745320699785368779050294e-9L);
|
|
|
|
TEST_ff_f (jn, 10, 2.0, 0.251538628271673670963516093751820639e-6L);
|
|
|
|
TEST_ff_f (jn, 10, 10.0, 0.207486106633358857697278723518753428L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2011-09-10 04:16:10 +02:00
|
|
|
/* BZ #11589 .*/
|
|
|
|
TEST_ff_f (jn, 2, 2.4048255576957729, 0.43175480701968038399746111312430703L);
|
|
|
|
TEST_ff_f (jn, 3, 2.4048255576957729, 0.19899990535769083404042146764530813L);
|
|
|
|
TEST_ff_f (jn, 4, 2.4048255576957729, 0.647466661641779720084932282551219891E-1L);
|
|
|
|
TEST_ff_f (jn, 5, 2.4048255576957729, 0.163892432048058525099230549946147698E-1L);
|
|
|
|
TEST_ff_f (jn, 6, 2.4048255576957729, 0.34048184720278336646673682895929161E-2L);
|
|
|
|
TEST_ff_f (jn, 7, 2.4048255576957729, 0.60068836573295394221291569249883076E-3L);
|
|
|
|
TEST_ff_f (jn, 8, 2.4048255576957729, 0.92165786705344923232879022467054148E-4L);
|
|
|
|
TEST_ff_f (jn, 9, 2.4048255576957729, 0.12517270977961513005428966643852564E-4L)
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (jn);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
ldexp_test (void)
|
|
|
|
{
|
|
|
|
TEST_ff_f (ldexp, 0, 0, 0);
|
|
|
|
TEST_ff_f (ldexp, minus_zero, 0, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (ldexp, plus_infty, 1, plus_infty);
|
|
|
|
TEST_ff_f (ldexp, minus_infty, 1, minus_infty);
|
|
|
|
TEST_ff_f (ldexp, nan_value, 1, nan_value);
|
|
|
|
|
|
|
|
TEST_ff_f (ldexp, 0.8L, 4, 12.8L);
|
|
|
|
TEST_ff_f (ldexp, -0.854375L, 5, -27.34L);
|
|
|
|
|
|
|
|
/* ldexp (x, 0) == x. */
|
|
|
|
TEST_ff_f (ldexp, 1.0L, 0L, 1.0L);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
lgamma_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(lgamma) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
|
|
|
|
|
|
|
START (lgamma);
|
|
|
|
|
|
|
|
TEST_f_f (lgamma, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (lgamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2007-10-06 20:37:30 +02:00
|
|
|
check_int ("signgam for lgamma(0) == 1", signgam, 1, 0, 0, 0);
|
|
|
|
TEST_f_f (lgamma, minus_zero, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
check_int ("signgam for lgamma(-0) == -1", signgam, -1, 0, 0, 0);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (lgamma, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* lgamma (x) == +inf plus divide by zero exception for integer x <= 0. */
|
2009-04-25 10:12:24 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (lgamma, -3, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-25 10:12:24 +02:00
|
|
|
check_int ("errno for lgamma(-integer) == ERANGE", errno, ERANGE, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (lgamma, minus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_f_f1 (lgamma, 1, 0, 1);
|
|
|
|
|
|
|
|
TEST_f_f1 (lgamma, 3, M_LN2l, 1);
|
|
|
|
|
|
|
|
TEST_f_f1 (lgamma, 0.5, M_LOG_SQRT_PIl, 1);
|
|
|
|
TEST_f_f1 (lgamma, -0.5, M_LOG_2_SQRT_PIl, -1);
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_f_f1 (lgamma, 0.7L, 0.260867246531666514385732417016759578L, 1);
|
|
|
|
TEST_f_f1 (lgamma, 1.2L, -0.853740900033158497197028392998854470e-1L, 1);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (lgamma);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
lrint_test (void)
|
|
|
|
{
|
|
|
|
/* XXX this test is incomplete. We need to have a way to specifiy
|
|
|
|
the rounding method and test the critical cases. So far, only
|
|
|
|
unproblematic numbers are tested. */
|
|
|
|
|
|
|
|
START (lrint);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 0.0, 0);
|
|
|
|
TEST_f_l (lrint, minus_zero, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_l (lrint, 0.2L, 0);
|
|
|
|
TEST_f_l (lrint, -0.2L, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_l (lrint, 1.4L, 1);
|
|
|
|
TEST_f_l (lrint, -1.4L, -1);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_l (lrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_l (lrint, -8388600.3L, -8388600);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_l (lrint, 1071930.0008, 1071930);
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (lrint, 1073741824.01, 1073741824);
|
2004-02-12 22:00:59 +01:00
|
|
|
# if LONG_MAX > 281474976710656
|
|
|
|
TEST_f_l (lrint, 281474976710656.025, 281474976710656);
|
|
|
|
# endif
|
2004-02-01 20:23:10 +01:00
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (lrint);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
2006-09-20 19:29:36 +02:00
|
|
|
static void
|
|
|
|
lrint_test_tonearest (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (lrint_tonearest);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_TONEAREST))
|
|
|
|
{
|
|
|
|
TEST_f_l (lrint, 0.0, 0);
|
|
|
|
TEST_f_l (lrint, minus_zero, 0);
|
|
|
|
TEST_f_l (lrint, 0.2L, 0);
|
|
|
|
TEST_f_l (lrint, -0.2L, 0);
|
|
|
|
TEST_f_l (lrint, 0.5L, 0);
|
|
|
|
TEST_f_l (lrint, -0.5L, 0);
|
|
|
|
TEST_f_l (lrint, 0.8L, 1);
|
|
|
|
TEST_f_l (lrint, -0.8L, -1);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1.4L, 1);
|
|
|
|
TEST_f_l (lrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_l (lrint, -8388600.3L, -8388600);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1071930.0008, 1071930);
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (lrint, 1073741824.01, 1073741824);
|
|
|
|
# if LONG_MAX > 281474976710656
|
|
|
|
TEST_f_l (lrint, 281474976710656.025, 281474976710656);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (lrint_tonearest);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
lrint_test_towardzero (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (lrint_towardzero);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_TOWARDZERO))
|
|
|
|
{
|
|
|
|
TEST_f_l (lrint, 0.0, 0);
|
|
|
|
TEST_f_l (lrint, minus_zero, 0);
|
|
|
|
TEST_f_l (lrint, 0.2L, 0);
|
|
|
|
TEST_f_l (lrint, -0.2L, 0);
|
|
|
|
TEST_f_l (lrint, 0.5L, 0);
|
|
|
|
TEST_f_l (lrint, -0.5L, 0);
|
|
|
|
TEST_f_l (lrint, 0.8L, 0);
|
|
|
|
TEST_f_l (lrint, -0.8L, 0);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1.4L, 1);
|
|
|
|
TEST_f_l (lrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_l (lrint, -8388600.3L, -8388600);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1071930.0008, 1071930);
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (lrint, 1073741824.01, 1073741824);
|
|
|
|
# if LONG_MAX > 281474976710656
|
|
|
|
TEST_f_l (lrint, 281474976710656.025, 281474976710656);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (lrint_towardzero);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
lrint_test_downward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (lrint_downward);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_DOWNWARD))
|
|
|
|
{
|
|
|
|
TEST_f_l (lrint, 0.0, 0);
|
|
|
|
TEST_f_l (lrint, minus_zero, 0);
|
|
|
|
TEST_f_l (lrint, 0.2L, 0);
|
|
|
|
TEST_f_l (lrint, -0.2L, -1);
|
|
|
|
TEST_f_l (lrint, 0.5L, 0);
|
|
|
|
TEST_f_l (lrint, -0.5L, -1);
|
|
|
|
TEST_f_l (lrint, 0.8L, 0);
|
|
|
|
TEST_f_l (lrint, -0.8L, -1);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1.4L, 1);
|
|
|
|
TEST_f_l (lrint, -1.4L, -2);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_l (lrint, -8388600.3L, -8388601);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1071930.0008, 1071930);
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (lrint, 1073741824.01, 1073741824);
|
|
|
|
# if LONG_MAX > 281474976710656
|
|
|
|
TEST_f_l (lrint, 281474976710656.025, 281474976710656);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (lrint_downward);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
lrint_test_upward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (lrint_upward);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_UPWARD))
|
|
|
|
{
|
|
|
|
TEST_f_l (lrint, 0.0, 0);
|
|
|
|
TEST_f_l (lrint, minus_zero, 0);
|
|
|
|
TEST_f_l (lrint, 0.2L, 1);
|
|
|
|
TEST_f_l (lrint, -0.2L, 0);
|
|
|
|
TEST_f_l (lrint, 0.5L, 1);
|
|
|
|
TEST_f_l (lrint, -0.5L, 0);
|
|
|
|
TEST_f_l (lrint, 0.8L, 1);
|
|
|
|
TEST_f_l (lrint, -0.8L, 0);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 1.4L, 2);
|
|
|
|
TEST_f_l (lrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_l (lrint, 8388600.3L, 8388601);
|
|
|
|
TEST_f_l (lrint, -8388600.3L, -8388600);
|
|
|
|
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (lrint, 1071930.0008, 1071931);
|
|
|
|
TEST_f_l (lrint, 1073741824.01, 1073741825);
|
|
|
|
# if LONG_MAX > 281474976710656 && defined (TEST_LDOUBLE)
|
2006-09-20 21:36:26 +02:00
|
|
|
TEST_f_l (lrint, 281474976710656.025, 281474976710656);
|
2006-09-20 19:29:36 +02:00
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (lrint_upward);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
llrint_test (void)
|
|
|
|
{
|
|
|
|
/* XXX this test is incomplete. We need to have a way to specifiy
|
|
|
|
the rounding method and test the critical cases. So far, only
|
|
|
|
unproblematic numbers are tested. */
|
|
|
|
|
|
|
|
START (llrint);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 0.0, 0);
|
|
|
|
TEST_f_L (llrint, minus_zero, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_L (llrint, 0.2L, 0);
|
|
|
|
TEST_f_L (llrint, -0.2L, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_L (llrint, 1.4L, 1);
|
|
|
|
TEST_f_L (llrint, -1.4L, -1);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_L (llrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_L (llrint, -8388600.3L, -8388600);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_l (llrint, 1071930.0008, 1071930);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llrint, 2097151.0,2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llrint, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llrint, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
|
2004-02-12 22:00:59 +01:00
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
|
|
|
TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
|
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
|
|
|
|
#endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
|
|
|
|
#endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
|
2006-03-17 00:17:32 +01:00
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (llrint);
|
|
|
|
}
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
static void
|
|
|
|
llrint_test_tonearest (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (llrint_tonearest);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_TONEAREST))
|
|
|
|
{
|
|
|
|
TEST_f_L (llrint, 0.0, 0);
|
|
|
|
TEST_f_L (llrint, minus_zero, 0);
|
|
|
|
TEST_f_L (llrint, 0.2L, 0);
|
|
|
|
TEST_f_L (llrint, -0.2L, 0);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 1.4L, 1);
|
|
|
|
TEST_f_L (llrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_L (llrint, -8388600.3L, -8388600);
|
|
|
|
|
|
|
|
TEST_f_l (llrint, 1071930.0008, 1071930);
|
|
|
|
|
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llrint, 2097151.0,2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llrint, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llrint, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
|
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
|
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
|
|
|
TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
|
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (llrint_tonearest);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
llrint_test_towardzero (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (llrint_towardzero);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_TOWARDZERO))
|
|
|
|
{
|
|
|
|
TEST_f_L (llrint, 0.0, 0);
|
|
|
|
TEST_f_L (llrint, minus_zero, 0);
|
|
|
|
TEST_f_L (llrint, 0.2L, 0);
|
|
|
|
TEST_f_L (llrint, -0.2L, 0);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 1.4L, 1);
|
|
|
|
TEST_f_L (llrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_L (llrint, -8388600.3L, -8388600);
|
|
|
|
|
|
|
|
TEST_f_l (llrint, 1071930.0008, 1071930);
|
|
|
|
|
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llrint, 2097151.0,2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llrint, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llrint, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
|
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
|
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
|
|
|
TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
|
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (llrint_towardzero);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
llrint_test_downward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (llrint_downward);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_DOWNWARD))
|
|
|
|
{
|
|
|
|
TEST_f_L (llrint, 0.0, 0);
|
|
|
|
TEST_f_L (llrint, minus_zero, 0);
|
|
|
|
TEST_f_L (llrint, 0.2L, 0);
|
|
|
|
TEST_f_L (llrint, -0.2L, -1);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 1.4L, 1);
|
|
|
|
TEST_f_L (llrint, -1.4L, -2);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 8388600.3L, 8388600);
|
|
|
|
TEST_f_L (llrint, -8388600.3L, -8388601);
|
|
|
|
|
|
|
|
TEST_f_l (llrint, 1071930.0008, 1071930);
|
|
|
|
|
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llrint, 2097151.0,2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llrint, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llrint, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
|
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
|
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
|
|
|
TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
|
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.25L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370498LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.25L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740994LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.25L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.5L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (llrint_downward);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
llrint_test_upward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (llrint_upward);
|
|
|
|
|
|
|
|
save_round_mode = fegetround ();
|
|
|
|
|
|
|
|
if (!fesetround (FE_UPWARD))
|
|
|
|
{
|
|
|
|
TEST_f_L (llrint, 0.0, 0);
|
|
|
|
TEST_f_L (llrint, minus_zero, 0);
|
|
|
|
TEST_f_L (llrint, 0.2L, 1);
|
|
|
|
TEST_f_L (llrint, -0.2L, 0);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 1.4L, 2);
|
|
|
|
TEST_f_L (llrint, -1.4L, -1);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 8388600.3L, 8388601);
|
|
|
|
TEST_f_L (llrint, -8388600.3L, -8388600);
|
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_l (llrint, 1071930.0008, 1071931);
|
|
|
|
#endif
|
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llrint, 2097151.0,2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llrint, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llrint, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
|
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
|
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
|
|
|
TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
|
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
|
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.25L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370498LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.25L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740994LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.25L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.5L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
|
|
|
|
|
|
|
|
TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
|
|
|
|
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775807L);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
fesetround (save_round_mode);
|
|
|
|
|
|
|
|
END (llrint_upward);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
log_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(log) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
START (log);
|
|
|
|
|
|
|
|
TEST_f_f (log, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (log, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_f_f (log, 1, 0);
|
|
|
|
|
|
|
|
TEST_f_f (log, -1, nan_value, INVALID_EXCEPTION);
|
2007-03-15 21:10:51 +01:00
|
|
|
TEST_f_f (log, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (log, plus_infty, plus_infty);
|
2007-03-15 21:10:51 +01:00
|
|
|
TEST_f_f (log, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log, M_El, 1);
|
|
|
|
TEST_f_f (log, 1.0 / M_El, -1);
|
|
|
|
TEST_f_f (log, 2, M_LN2l);
|
|
|
|
TEST_f_f (log, 10, M_LN10l);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (log, 0.75L, -0.287682072451780927439219005993827432L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (log);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
log10_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(log10) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (log10);
|
|
|
|
|
|
|
|
TEST_f_f (log10, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (log10, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_f_f (log10, 1, 0);
|
|
|
|
|
|
|
|
/* log10 (x) == NaN plus invalid exception if x < 0. */
|
|
|
|
TEST_f_f (log10, -1, nan_value, INVALID_EXCEPTION);
|
2007-03-15 21:10:51 +01:00
|
|
|
TEST_f_f (log10, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log10, plus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (log10, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log10, 0.1L, -1);
|
|
|
|
TEST_f_f (log10, 10.0, 1);
|
|
|
|
TEST_f_f (log10, 100.0, 2);
|
|
|
|
TEST_f_f (log10, 10000.0, 4);
|
|
|
|
TEST_f_f (log10, M_El, M_LOG10El);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (log10, 0.75L, -0.124938736608299953132449886193870744L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (log10);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
log1p_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(log1p) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (log1p);
|
|
|
|
|
|
|
|
TEST_f_f (log1p, 0, 0);
|
|
|
|
TEST_f_f (log1p, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_f_f (log1p, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (log1p, -2, nan_value, INVALID_EXCEPTION);
|
2007-03-15 21:10:51 +01:00
|
|
|
TEST_f_f (log1p, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log1p, plus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (log1p, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log1p, M_El - 1.0, 1);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (log1p, -0.25L, -0.287682072451780927439219005993827432L);
|
|
|
|
TEST_f_f (log1p, -0.875, -2.07944154167983592825169636437452970L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (log1p);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
log2_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(log2) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (log2);
|
|
|
|
|
|
|
|
TEST_f_f (log2, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (log2, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_f_f (log2, 1, 0);
|
|
|
|
|
|
|
|
TEST_f_f (log2, -1, nan_value, INVALID_EXCEPTION);
|
2007-03-15 21:10:51 +01:00
|
|
|
TEST_f_f (log2, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log2, plus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (log2, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (log2, M_El, M_LOG2El);
|
|
|
|
TEST_f_f (log2, 2.0, 1);
|
|
|
|
TEST_f_f (log2, 16.0, 4);
|
|
|
|
TEST_f_f (log2, 256.0, 8);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (log2, 0.75L, -.415037499278843818546261056052183492L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (log2);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
logb_test (void)
|
|
|
|
{
|
|
|
|
START (logb);
|
|
|
|
|
|
|
|
TEST_f_f (logb, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (logb, minus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_f_f (logb, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_f_f (logb, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (logb, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (logb, 1, 0);
|
|
|
|
TEST_f_f (logb, M_El, 1);
|
|
|
|
TEST_f_f (logb, 1024, 10);
|
|
|
|
TEST_f_f (logb, -2000, 10);
|
|
|
|
|
|
|
|
END (logb);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
lround_test (void)
|
|
|
|
{
|
|
|
|
START (lround);
|
|
|
|
|
|
|
|
TEST_f_l (lround, 0, 0);
|
|
|
|
TEST_f_l (lround, minus_zero, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_l (lround, 0.2L, 0.0);
|
|
|
|
TEST_f_l (lround, -0.2L, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_l (lround, 0.5, 1);
|
|
|
|
TEST_f_l (lround, -0.5, -1);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_l (lround, 0.8L, 1);
|
|
|
|
TEST_f_l (lround, -0.8L, -1);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_l (lround, 1.5, 2);
|
|
|
|
TEST_f_l (lround, -1.5, -2);
|
|
|
|
TEST_f_l (lround, 22514.5, 22515);
|
|
|
|
TEST_f_l (lround, -22514.5, -22515);
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_l (lround, 1071930.0008, 1071930);
|
1999-10-19 08:29:27 +02:00
|
|
|
#ifndef TEST_FLOAT
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_l (lround, 1073741824.01, 1073741824);
|
2004-02-12 22:00:59 +01:00
|
|
|
# if LONG_MAX > 281474976710656
|
|
|
|
TEST_f_l (lround, 281474976710656.025, 281474976710656);
|
2011-09-09 05:37:32 +02:00
|
|
|
TEST_f_l (llround, -3.65309740835E17, -365309740835000000);
|
2004-02-12 22:00:59 +01:00
|
|
|
# endif
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_l (lround, 2097152.5, 2097153);
|
|
|
|
TEST_f_l (lround, -2097152.5, -2097153);
|
2008-04-11 21:32:37 +02:00
|
|
|
/* nextafter(0.5,-1) */
|
|
|
|
TEST_f_l (lround, 0x1.fffffffffffffp-2, 0);
|
|
|
|
/* nextafter(-0.5,1) */
|
|
|
|
TEST_f_l (lround, -0x1.fffffffffffffp-2, 0);
|
|
|
|
#else
|
|
|
|
/* nextafter(0.5,-1) */
|
|
|
|
TEST_f_l (lround, 0x1.fffffp-2, 0);
|
|
|
|
/* nextafter(-0.5,1) */
|
|
|
|
TEST_f_l (lround, -0x1.fffffp-2, 0);
|
|
|
|
TEST_f_l (lround, 0x1.fffffep+23, 16777215);
|
|
|
|
TEST_f_l (lround, -0x1.fffffep+23, -16777215);
|
1999-10-19 08:29:27 +02:00
|
|
|
#endif
|
|
|
|
END (lround);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
llround_test (void)
|
|
|
|
{
|
|
|
|
START (llround);
|
|
|
|
|
|
|
|
TEST_f_L (llround, 0, 0);
|
|
|
|
TEST_f_L (llround, minus_zero, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_L (llround, 0.2L, 0.0);
|
|
|
|
TEST_f_L (llround, -0.2L, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_L (llround, 0.5, 1);
|
|
|
|
TEST_f_L (llround, -0.5, -1);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_L (llround, 0.8L, 1);
|
|
|
|
TEST_f_L (llround, -0.8L, -1);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_L (llround, 1.5, 2);
|
|
|
|
TEST_f_L (llround, -1.5, -2);
|
|
|
|
TEST_f_L (llround, 22514.5, 22515);
|
|
|
|
TEST_f_L (llround, -22514.5, -22515);
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_l (llround, 1071930.0008, 1071930);
|
1999-10-19 08:29:27 +02:00
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
TEST_f_L (llround, 2097152.5, 2097153);
|
|
|
|
TEST_f_L (llround, -2097152.5, -2097153);
|
|
|
|
TEST_f_L (llround, 34359738368.5, 34359738369ll);
|
|
|
|
TEST_f_L (llround, -34359738368.5, -34359738369ll);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Test boundary conditions. */
|
|
|
|
/* 0x1FFFFF */
|
|
|
|
TEST_f_L (llround, 2097151.0, 2097151LL);
|
|
|
|
/* 0x800000 */
|
|
|
|
TEST_f_L (llround, 8388608.0, 8388608LL);
|
|
|
|
/* 0x1000000 */
|
|
|
|
TEST_f_L (llround, 16777216.0, 16777216LL);
|
|
|
|
/* 0x20000000000 */
|
|
|
|
TEST_f_L (llround, 2199023255552.0, 2199023255552LL);
|
|
|
|
/* 0x40000000000 */
|
|
|
|
TEST_f_L (llround, 4398046511104.0, 4398046511104LL);
|
2004-02-12 22:00:59 +01:00
|
|
|
/* 0x1000000000000 */
|
|
|
|
TEST_f_L (llround, 281474976710656.0, 281474976710656LL);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* 0x10000000000000 */
|
|
|
|
TEST_f_L (llround, 4503599627370496.0, 4503599627370496LL);
|
|
|
|
/* 0x10000080000000 */
|
2004-02-01 20:23:10 +01:00
|
|
|
TEST_f_L (llround, 4503601774854144.0, 4503601774854144LL);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* 0x20000000000000 */
|
|
|
|
TEST_f_L (llround, 9007199254740992.0, 9007199254740992LL);
|
|
|
|
/* 0x80000000000000 */
|
|
|
|
TEST_f_L (llround, 36028797018963968.0, 36028797018963968LL);
|
|
|
|
/* 0x100000000000000 */
|
|
|
|
TEST_f_L (llround, 72057594037927936.0, 72057594037927936LL);
|
|
|
|
|
Update.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* iconv/loop.c (UNICODE_TAG_HANDLER): New macro.
* iconv/gconv_simple.c (__gconv_transform_internal_ascii): Invoke
UNICODE_TAG_HANDLER.
(__gconv_transform_internal_ucs2): Likewise.
(__gconv_transform_internal_ucs2reverse): Likewise.
* iconvdata/8bit-gap.c (BODY for TO_LOOP): Invoke UNICODE_TAG_HANDLER.
* iconvdata/8bit-generic.c (BODY for TO_LOOP): Likewise.
* iconvdata/ansi_x3.110.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5hkscs.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1255.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1258.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-jp.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-tw.c (BODY for TO_LOOP): Likewise.
* iconvdata/gbk.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm930.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm932.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm933.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm935.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm937.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm939.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm943.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso646.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso8859-1.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937-2.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn-ext.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/johab.c (BODY for TO_LOOP): Likewise.
* iconvdata/sjis.c (BODY for TO_LOOP): Likewise.
* iconvdata/t.61.c (BODY for TO_LOOP): Likewise.
* iconvdata/uhc.c (BODY for TO_LOOP): Likewise.
* iconvdata/unicode.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-jp.c (TAG_none, TAG_language, TAG_language_j,
TAG_language_ja, TAG_language_k, TAG_language_ko, TAG_language_z,
TAG_language_zh, CURRENT_TAG_MASK): New enum values.
(EMIT_SHIFT_TO_INIT): Don't emit an escape sequence if ASCII_set
is already selected but set2 or tag are set.
(conversion): New enum type.
(cvlist_t): New type.
(CVLIST, CVLIST_FIRST, CVLIST_REST): New macros.
(conversion_lists): New array.
(BODY for TO_LOOP): Keep track of Unicode 3.1 language tag. If "ja",
prefer conversion to Japanese character sets. If "zh", prefer
conversion to GB2312. If "ko", prefer conversion to KSC5601. Small
optimizations.
(INIT_PARAMS): Add tag.
(UPDATE_PARAMS): Add tag.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* locale/programs/locfile.c (write_locale_data): Before creat(),
unlink the file, to avoid crashing the processes that mmap it. Change
a double slash to a single slash. Free fname in case of error return.
2001-06-02 Jakub Jelinek <jakub@redhat.com>
* sysdeps/i386/fpu/s_frexpl.S (__frexpl): Mostly revert 2000-12-03
changes, do the special handling for denormal numbers, not for
normalized numbers (patch by <trevin@xmission.com>).
* math/test-misc.c (main): Test frexpl with denormal arguments.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (llround_test): Add two new llround tests.
* sysdeps/ieee754/ldbl-96/s_llroundl.c (__llroundl): Don't allow
overflow when rounding away from zero.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/Makefile (libm-calls): Add e_log2, w_log2, remove s_log2.
* math/math_private.h (__ieee754_log2, __ieee754_log2f,
__ieee754_log2l): New prototypes.
* sysdeps/generic/w_log2.c: New file.
* sysdeps/generic/w_log2f.c: New file.
* sysdeps/generic/w_log2l.c: New file.
* sysdeps/generic/s_log2l.c: Move...
* sysdeps/generic/e_log2l.c: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/k_standard.c (__kernel_standard): Handle log2(0)
and log2(x < 0).
* sysdeps/i386/fpu/s_log2.S: Move...
* sysdeps/i386/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/i386/fpu/s_log2f.S: Move...
* sysdeps/i386/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/i386/fpu/s_log2l.S: Move...
* sysdeps/i386/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/m68k/fpu/s_log2.S: Move...
* sysdeps/m68k/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/m68k/fpu/s_log2f.S: Move...
* sysdeps/m68k/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/m68k/fpu/s_log2l.S: Move...
* sysdeps/m68k/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/dbl-64/s_log2.c: Move...
* sysdeps/ieee754/dbl-64/e_log2.c: ...to here. Rename to
__ieee754_log2.
* sysdeps/ieee754/flt-32/s_log2f.c: Move...
* sysdeps/ieee754/flt-32/e_log2f.c: ...to here. Rename to
__ieee754_log2f.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_exp2.c (u_threshold): Lower threshold so that
even arguments which result in denormalized exp2 are accepted.
(__exp2): Arguments equal to u_threshold already result into
underflow.
* sysdeps/generic/w_exp2f.c (u_threshold, __exp2f): Likewise.
* sysdeps/generic/w_exp2l.c (u_threshold, __exp2l): Likewise.
* sysdeps/ieee754/dbl-64/e_exp2.c (__ieee754_exp2): Lomark was too
low, with corrected lowmark use greaterequal, not greater.
* sysdeps/ieee754/flt-32/e_exp2f.c (__ieee754_exp2f): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (ilogb_test): Test that ilogb(+-Inf) == INT_MAX.
* sysdeps/i386/fpu/s_ilogb.S (__ilogb): Return INT_MAX for +-Inf.
* sysdeps/i386/fpu/s_ilogbf.S (__ilogbf): Likewise.
* sysdeps/i386/fpu/s_ilogbl.S (__ilogbl): Likewise.
* sysdeps/ieee754/dbl-64/s_ilogb.c (__ilogb): Likewise.
* sysdeps/ieee754/flt-32/s_ilogbf.c (__ilogbf): Likewise.
* sysdeps/ieee754/ldbl-128/s_ilogbl.c (__ilogbl): Likewise.
* sysdeps/ieee754/ldbl-96/s_ilogbl.c (__ilogbl): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_coshl.c (__coshl): Test if finite argument
gave non-finite result instead of using constant in generic
version.
* sysdeps/generic/w_coshf.c (__coshf): Likewise.
* sysdeps/generic/w_cosh.c (__cosh): Likewise.
* sysdeps/generic/w_exp10.c (o_threshold, u_threshold): Remove.
(__exp10): Test if finite argument gave non-finite result.
* sysdeps/generic/w_exp10f.c (o_threshold, u_threshold, __exp10f):
Likewise.
* sysdeps/generic/w_exp10l.c (o_threshold, u_threshold, __exp10l):
Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-96/e_coshl.c (__ieee754_coshl): Fix
overflow threshold constant (log(LDBL_MAX)+M_LN2l).
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/programs/ld-ctype.c (idx_table): New struct type.
(idx_table_init, idx_table_get, idx_table_add): New functions.
(MAX_CHARNAMES_IDX): Remove macro.
(locale_ctype_t): Change type of charnames_idx field.
(ctype_startup): Change initialization of charnames_idx field.
(find_idx): Use idx_table_get and idx_table_add for speed.
* locale/programs/charmap.c (charmap_new_char): Fix ucs4 value
computation of characters in a range.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/gb18030.c (__fourbyte_to_ucs1): Add mappings for <U03F4>,
<U03F5>.
(__ucs_to_gb18030_tab1): Likewise.
(BODY for FROM_LOOP): Add mapping for <U00010000>..<U0010FFFF>.
(BODY for TO_LOOP): Likewise.
* iconvdata/tst-table-charmap.sh: Update for charmaps containing
<U00xxxxxx> syntax.
* iconvdata/tst-table-from.c (bmp_only): New variable.
(utf8_decode): If bmp_only, don't return characters outside Unicode
plane 0.
(main): When testing UTF-8 or GB18030, set bmp_only to 1. Don't print
a conversion line if utf8_decode returns NULL.
* iconvdata/tst-table-to.c (main): When testing encodings other than
UTF-8 and GB18030, loop upto U+30000 instead of U+10000. Use UTF-8
instead of UCS-2 as input.
* iconvdata/tst-table.sh: For GB18030, use only the part < 0x10000
of the charmap.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/cns11643l1.c: Update to Unicode 3.1.
(__cns11643l1_to_ucs4_tab): Regenerated.
(__cns11643l1_from_ucs4_tab12): Regenerated.
* iconvdata/cns11643.c: Update to Unicode 3.1.
(__cns11643l14_to_ucs4_tab): Remove array.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New arrays.
(__cns11643_from_ucs4p0_tab): Renamed from __cns11643_from_ucs4_tab.
(__cns11643_from_ucs4p2_tab): New array.
* iconvdata/cns11643.h (__cns11643l14_to_ucs4_tab): Remove declaration.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New declarations.
(cns11643_to_ucs4): Treat planes 3, 4, 5, 6, 7, 15 instead of 14.
(__cns11643_from_ucs4_tab): Remove declaration.
(__cns11643_from_ucs4p0_tab, __cns11643_from_ucs4p2_tab): New
declarations.
(ucs4_to_cns11643): Update for new arrays. Treat U+3400..U+4DFF and
U+20000..U+2A6D6.
* iconvdata/cns11643l2.h (__cns11643_from_ucs4_tab): Remove
declaration.
(__cns11643_from_ucs4p0_tab): New declaration.
(ucs4_to_cns11643l2): Update for new arrays.
* iconvdata/iso-2022-cn-ext.c (BODY for FROM_LOOP): Handle planes
3 to 7.
(BODY for TO_LOOP): Handle planes 3 to 7, instead of plane 14.
* iconvdata/EUC-TW.irreversible: New file.
* iconvdata/tst-table.sh: Use it.
* iconvdata/Makefile (distribute): Add CP1255.irreversible,
CP1258.irreversible, EUC-TW.irreversible.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/C-translit.h.in: Add transliterations for new Unicode 3.1
mathematical symbols.
2001-06-06 14:55:46 +02:00
|
|
|
#ifndef TEST_FLOAT
|
|
|
|
/* 0x100000000 */
|
|
|
|
TEST_f_L (llround, 4294967295.5, 4294967296LL);
|
|
|
|
/* 0x200000000 */
|
|
|
|
TEST_f_L (llround, 8589934591.5, 8589934592LL);
|
2008-04-11 21:32:37 +02:00
|
|
|
|
|
|
|
/* nextafter(0.5,-1) */
|
|
|
|
TEST_f_L (llround, 0x1.fffffffffffffp-2, 0);
|
|
|
|
/* nextafter(-0.5,1) */
|
|
|
|
TEST_f_L (llround, -0x1.fffffffffffffp-2, 0);
|
|
|
|
/* On PowerPC an exponent of '52' is the largest incrementally
|
|
|
|
* representable sequence of whole-numbers in the 'double' range. We test
|
|
|
|
* lround to make sure that a guard bit set during the lround operation
|
|
|
|
* hasn't forced an erroneous shift giving us an incorrect result. The odd
|
|
|
|
* numbers between +-(2^52+1 and 2^53-1) are affected since they have the
|
|
|
|
* rightmost bit set. */
|
|
|
|
/* +-(2^52+1) */
|
|
|
|
TEST_f_L (llround, 0x1.0000000000001p+52,4503599627370497LL);
|
|
|
|
TEST_f_L (llround, -0x1.0000000000001p+52,-4503599627370497LL);
|
|
|
|
/* +-(2^53-1): Input is the last (positive and negative) incrementally
|
|
|
|
* representable whole-number in the 'double' range that might round
|
|
|
|
* erroneously. */
|
|
|
|
TEST_f_L (llround, 0x1.fffffffffffffp+52, 9007199254740991LL);
|
|
|
|
TEST_f_L (llround, -0x1.fffffffffffffp+52, -9007199254740991LL);
|
|
|
|
#else
|
|
|
|
/* nextafter(0.5,-1) */
|
|
|
|
TEST_f_L (llround, 0x1.fffffep-2, 0);
|
|
|
|
/* nextafter(-0.5,1) */
|
|
|
|
TEST_f_L (llround, -0x1.fffffep-2, 0);
|
|
|
|
/* As above, on PowerPC an exponent of '23' is the largest incrementally
|
|
|
|
* representable sequence of whole-numbers in the 'float' range.
|
|
|
|
* Likewise, numbers between +-(2^23+1 and 2^24-1) are affected. */
|
|
|
|
TEST_f_L (llround, 0x1.000002p+23,8388609);
|
|
|
|
TEST_f_L (llround, -0x1.000002p+23,-8388609);
|
|
|
|
TEST_f_L (llround, 0x1.fffffep+23, 16777215);
|
|
|
|
TEST_f_L (llround, -0x1.fffffep+23, -16777215);
|
Update.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* iconv/loop.c (UNICODE_TAG_HANDLER): New macro.
* iconv/gconv_simple.c (__gconv_transform_internal_ascii): Invoke
UNICODE_TAG_HANDLER.
(__gconv_transform_internal_ucs2): Likewise.
(__gconv_transform_internal_ucs2reverse): Likewise.
* iconvdata/8bit-gap.c (BODY for TO_LOOP): Invoke UNICODE_TAG_HANDLER.
* iconvdata/8bit-generic.c (BODY for TO_LOOP): Likewise.
* iconvdata/ansi_x3.110.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5.c (BODY for TO_LOOP): Likewise.
* iconvdata/big5hkscs.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1255.c (BODY for TO_LOOP): Likewise.
* iconvdata/cp1258.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-jp.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/euc-tw.c (BODY for TO_LOOP): Likewise.
* iconvdata/gbk.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm930.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm932.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm933.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm935.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm937.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm939.c (BODY for TO_LOOP): Likewise.
* iconvdata/ibm943.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso646.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso8859-1.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso_6937-2.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-cn-ext.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-kr.c (BODY for TO_LOOP): Likewise.
* iconvdata/johab.c (BODY for TO_LOOP): Likewise.
* iconvdata/sjis.c (BODY for TO_LOOP): Likewise.
* iconvdata/t.61.c (BODY for TO_LOOP): Likewise.
* iconvdata/uhc.c (BODY for TO_LOOP): Likewise.
* iconvdata/unicode.c (BODY for TO_LOOP): Likewise.
* iconvdata/iso-2022-jp.c (TAG_none, TAG_language, TAG_language_j,
TAG_language_ja, TAG_language_k, TAG_language_ko, TAG_language_z,
TAG_language_zh, CURRENT_TAG_MASK): New enum values.
(EMIT_SHIFT_TO_INIT): Don't emit an escape sequence if ASCII_set
is already selected but set2 or tag are set.
(conversion): New enum type.
(cvlist_t): New type.
(CVLIST, CVLIST_FIRST, CVLIST_REST): New macros.
(conversion_lists): New array.
(BODY for TO_LOOP): Keep track of Unicode 3.1 language tag. If "ja",
prefer conversion to Japanese character sets. If "zh", prefer
conversion to GB2312. If "ko", prefer conversion to KSC5601. Small
optimizations.
(INIT_PARAMS): Add tag.
(UPDATE_PARAMS): Add tag.
2001-06-04 Bruno Haible <haible@clisp.cons.org>
* locale/programs/locfile.c (write_locale_data): Before creat(),
unlink the file, to avoid crashing the processes that mmap it. Change
a double slash to a single slash. Free fname in case of error return.
2001-06-02 Jakub Jelinek <jakub@redhat.com>
* sysdeps/i386/fpu/s_frexpl.S (__frexpl): Mostly revert 2000-12-03
changes, do the special handling for denormal numbers, not for
normalized numbers (patch by <trevin@xmission.com>).
* math/test-misc.c (main): Test frexpl with denormal arguments.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (llround_test): Add two new llround tests.
* sysdeps/ieee754/ldbl-96/s_llroundl.c (__llroundl): Don't allow
overflow when rounding away from zero.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/Makefile (libm-calls): Add e_log2, w_log2, remove s_log2.
* math/math_private.h (__ieee754_log2, __ieee754_log2f,
__ieee754_log2l): New prototypes.
* sysdeps/generic/w_log2.c: New file.
* sysdeps/generic/w_log2f.c: New file.
* sysdeps/generic/w_log2l.c: New file.
* sysdeps/generic/s_log2l.c: Move...
* sysdeps/generic/e_log2l.c: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/k_standard.c (__kernel_standard): Handle log2(0)
and log2(x < 0).
* sysdeps/i386/fpu/s_log2.S: Move...
* sysdeps/i386/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/i386/fpu/s_log2f.S: Move...
* sysdeps/i386/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/i386/fpu/s_log2l.S: Move...
* sysdeps/i386/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/m68k/fpu/s_log2.S: Move...
* sysdeps/m68k/fpu/e_log2.S: ...to here. Rename to __ieee754_log2.
* sysdeps/m68k/fpu/s_log2f.S: Move...
* sysdeps/m68k/fpu/e_log2f.S: ...to here. Rename to __ieee754_log2f.
* sysdeps/m68k/fpu/s_log2l.S: Move...
* sysdeps/m68k/fpu/e_log2l.S: ...to here. Rename to __ieee754_log2l.
* sysdeps/ieee754/dbl-64/s_log2.c: Move...
* sysdeps/ieee754/dbl-64/e_log2.c: ...to here. Rename to
__ieee754_log2.
* sysdeps/ieee754/flt-32/s_log2f.c: Move...
* sysdeps/ieee754/flt-32/e_log2f.c: ...to here. Rename to
__ieee754_log2f.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_exp2.c (u_threshold): Lower threshold so that
even arguments which result in denormalized exp2 are accepted.
(__exp2): Arguments equal to u_threshold already result into
underflow.
* sysdeps/generic/w_exp2f.c (u_threshold, __exp2f): Likewise.
* sysdeps/generic/w_exp2l.c (u_threshold, __exp2l): Likewise.
* sysdeps/ieee754/dbl-64/e_exp2.c (__ieee754_exp2): Lomark was too
low, with corrected lowmark use greaterequal, not greater.
* sysdeps/ieee754/flt-32/e_exp2f.c (__ieee754_exp2f): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (ilogb_test): Test that ilogb(+-Inf) == INT_MAX.
* sysdeps/i386/fpu/s_ilogb.S (__ilogb): Return INT_MAX for +-Inf.
* sysdeps/i386/fpu/s_ilogbf.S (__ilogbf): Likewise.
* sysdeps/i386/fpu/s_ilogbl.S (__ilogbl): Likewise.
* sysdeps/ieee754/dbl-64/s_ilogb.c (__ilogb): Likewise.
* sysdeps/ieee754/flt-32/s_ilogbf.c (__ilogbf): Likewise.
* sysdeps/ieee754/ldbl-128/s_ilogbl.c (__ilogbl): Likewise.
* sysdeps/ieee754/ldbl-96/s_ilogbl.c (__ilogbl): Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/generic/w_coshl.c (__coshl): Test if finite argument
gave non-finite result instead of using constant in generic
version.
* sysdeps/generic/w_coshf.c (__coshf): Likewise.
* sysdeps/generic/w_cosh.c (__cosh): Likewise.
* sysdeps/generic/w_exp10.c (o_threshold, u_threshold): Remove.
(__exp10): Test if finite argument gave non-finite result.
* sysdeps/generic/w_exp10f.c (o_threshold, u_threshold, __exp10f):
Likewise.
* sysdeps/generic/w_exp10l.c (o_threshold, u_threshold, __exp10l):
Likewise.
2001-06-04 Jakub Jelinek <jakub@redhat.com>
* sysdeps/ieee754/ldbl-96/e_coshl.c (__ieee754_coshl): Fix
overflow threshold constant (log(LDBL_MAX)+M_LN2l).
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/programs/ld-ctype.c (idx_table): New struct type.
(idx_table_init, idx_table_get, idx_table_add): New functions.
(MAX_CHARNAMES_IDX): Remove macro.
(locale_ctype_t): Change type of charnames_idx field.
(ctype_startup): Change initialization of charnames_idx field.
(find_idx): Use idx_table_get and idx_table_add for speed.
* locale/programs/charmap.c (charmap_new_char): Fix ucs4 value
computation of characters in a range.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/gb18030.c (__fourbyte_to_ucs1): Add mappings for <U03F4>,
<U03F5>.
(__ucs_to_gb18030_tab1): Likewise.
(BODY for FROM_LOOP): Add mapping for <U00010000>..<U0010FFFF>.
(BODY for TO_LOOP): Likewise.
* iconvdata/tst-table-charmap.sh: Update for charmaps containing
<U00xxxxxx> syntax.
* iconvdata/tst-table-from.c (bmp_only): New variable.
(utf8_decode): If bmp_only, don't return characters outside Unicode
plane 0.
(main): When testing UTF-8 or GB18030, set bmp_only to 1. Don't print
a conversion line if utf8_decode returns NULL.
* iconvdata/tst-table-to.c (main): When testing encodings other than
UTF-8 and GB18030, loop upto U+30000 instead of U+10000. Use UTF-8
instead of UCS-2 as input.
* iconvdata/tst-table.sh: For GB18030, use only the part < 0x10000
of the charmap.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* iconvdata/cns11643l1.c: Update to Unicode 3.1.
(__cns11643l1_to_ucs4_tab): Regenerated.
(__cns11643l1_from_ucs4_tab12): Regenerated.
* iconvdata/cns11643.c: Update to Unicode 3.1.
(__cns11643l14_to_ucs4_tab): Remove array.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New arrays.
(__cns11643_from_ucs4p0_tab): Renamed from __cns11643_from_ucs4_tab.
(__cns11643_from_ucs4p2_tab): New array.
* iconvdata/cns11643.h (__cns11643l14_to_ucs4_tab): Remove declaration.
(__cns11643l3_to_ucs4_tab, __cns11643l4_to_ucs4_tab,
__cns11643l5_to_ucs4_tab, __cns11643l6_to_ucs4_tab,
__cns11643l7_to_ucs4_tab, __cns11643l15_to_ucs4_tab): New declarations.
(cns11643_to_ucs4): Treat planes 3, 4, 5, 6, 7, 15 instead of 14.
(__cns11643_from_ucs4_tab): Remove declaration.
(__cns11643_from_ucs4p0_tab, __cns11643_from_ucs4p2_tab): New
declarations.
(ucs4_to_cns11643): Update for new arrays. Treat U+3400..U+4DFF and
U+20000..U+2A6D6.
* iconvdata/cns11643l2.h (__cns11643_from_ucs4_tab): Remove
declaration.
(__cns11643_from_ucs4p0_tab): New declaration.
(ucs4_to_cns11643l2): Update for new arrays.
* iconvdata/iso-2022-cn-ext.c (BODY for FROM_LOOP): Handle planes
3 to 7.
(BODY for TO_LOOP): Handle planes 3 to 7, instead of plane 14.
* iconvdata/EUC-TW.irreversible: New file.
* iconvdata/tst-table.sh: Use it.
* iconvdata/Makefile (distribute): Add CP1255.irreversible,
CP1258.irreversible, EUC-TW.irreversible.
2001-05-29 Bruno Haible <haible@clisp.cons.org>
* locale/C-translit.h.in: Add transliterations for new Unicode 3.1
mathematical symbols.
2001-06-06 14:55:46 +02:00
|
|
|
#endif
|
|
|
|
|
2008-04-11 21:32:37 +02:00
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The input can only be represented in long double. */
|
|
|
|
TEST_f_L (llround, 4503599627370495.5L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llround, 4503599627370496.25L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llround, 4503599627370496.5L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llround, 4503599627370496.75L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llround, 4503599627370497.5L, 4503599627370498LL);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llround, 4503599627370495.4999999999999L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llround, 4503599627370496.4999999999999L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llround, 4503599627370497.4999999999999L, 4503599627370497LL);
|
|
|
|
TEST_f_L (llround, 4503599627370494.5000000000001L, 4503599627370495LL);
|
|
|
|
TEST_f_L (llround, 4503599627370495.5000000000001L, 4503599627370496LL);
|
|
|
|
TEST_f_L (llround, 4503599627370496.5000000000001L, 4503599627370497LL);
|
|
|
|
|
|
|
|
TEST_f_L (llround, -4503599627370495.4999999999999L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llround, -4503599627370496.4999999999999L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llround, -4503599627370497.4999999999999L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llround, -4503599627370494.5000000000001L, -4503599627370495LL);
|
|
|
|
TEST_f_L (llround, -4503599627370495.5000000000001L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llround, -4503599627370496.5000000000001L, -4503599627370497LL);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_L (llround, -4503599627370495.5L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llround, -4503599627370496.25L, -4503599627370496LL);
|
|
|
|
TEST_f_L (llround, -4503599627370496.5L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llround, -4503599627370496.75L, -4503599627370497LL);
|
|
|
|
TEST_f_L (llround, -4503599627370497.5L, -4503599627370498LL);
|
|
|
|
|
|
|
|
TEST_f_L (llround, 9007199254740991.5L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llround, 9007199254740992.25L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llround, 9007199254740992.5L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llround, 9007199254740992.75L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llround, 9007199254740993.5L, 9007199254740994LL);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_L (llround, 9007199254740991.4999999999999L, 9007199254740991LL);
|
|
|
|
TEST_f_L (llround, 9007199254740992.4999999999999L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llround, 9007199254740993.4999999999999L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llround, 9007199254740991.5000000000001L, 9007199254740992LL);
|
|
|
|
TEST_f_L (llround, 9007199254740992.5000000000001L, 9007199254740993LL);
|
|
|
|
TEST_f_L (llround, 9007199254740993.5000000000001L, 9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llround, -9007199254740991.4999999999999L, -9007199254740991LL);
|
|
|
|
TEST_f_L (llround, -9007199254740992.4999999999999L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llround, -9007199254740993.4999999999999L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llround, -9007199254740991.5000000000001L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llround, -9007199254740992.5000000000001L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llround, -9007199254740993.5000000000001L, -9007199254740994LL);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_L (llround, -9007199254740991.5L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llround, -9007199254740992.25L, -9007199254740992LL);
|
|
|
|
TEST_f_L (llround, -9007199254740992.5L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llround, -9007199254740992.75L, -9007199254740993LL);
|
|
|
|
TEST_f_L (llround, -9007199254740993.5L, -9007199254740994LL);
|
|
|
|
|
|
|
|
TEST_f_L (llround, 72057594037927935.5L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llround, 72057594037927936.25L, 72057594037927936LL);
|
|
|
|
TEST_f_L (llround, 72057594037927936.5L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llround, 72057594037927936.75L, 72057594037927937LL);
|
|
|
|
TEST_f_L (llround, 72057594037927937.5L, 72057594037927938LL);
|
|
|
|
|
|
|
|
TEST_f_L (llround, -72057594037927935.5L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llround, -72057594037927936.25L, -72057594037927936LL);
|
|
|
|
TEST_f_L (llround, -72057594037927936.5L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llround, -72057594037927936.75L, -72057594037927937LL);
|
|
|
|
TEST_f_L (llround, -72057594037927937.5L, -72057594037927938LL);
|
2006-01-30 23:27:31 +01:00
|
|
|
|
|
|
|
TEST_f_L (llround, 9223372036854775806.25L, 9223372036854775806LL);
|
|
|
|
TEST_f_L (llround, -9223372036854775806.25L, -9223372036854775806LL);
|
|
|
|
TEST_f_L (llround, 9223372036854775806.5L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llround, -9223372036854775806.5L, -9223372036854775807LL);
|
|
|
|
TEST_f_L (llround, 9223372036854775807.0L, 9223372036854775807LL);
|
|
|
|
TEST_f_L (llround, -9223372036854775807.0L, -9223372036854775807LL);
|
2006-01-28 01:15:15 +01:00
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (llround);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
modf_test (void)
|
|
|
|
{
|
|
|
|
FLOAT x;
|
|
|
|
|
|
|
|
START (modf);
|
|
|
|
|
|
|
|
TEST_fF_f1 (modf, plus_infty, 0, plus_infty);
|
|
|
|
TEST_fF_f1 (modf, minus_infty, minus_zero, minus_infty);
|
|
|
|
TEST_fF_f1 (modf, nan_value, nan_value, nan_value);
|
|
|
|
TEST_fF_f1 (modf, 0, 0, 0);
|
|
|
|
TEST_fF_f1 (modf, 1.5, 0.5, 1);
|
|
|
|
TEST_fF_f1 (modf, 2.5, 0.5, 2);
|
|
|
|
TEST_fF_f1 (modf, -2.5, -0.5, -2);
|
|
|
|
TEST_fF_f1 (modf, 20, 0, 20);
|
|
|
|
TEST_fF_f1 (modf, 21, 0, 21);
|
|
|
|
TEST_fF_f1 (modf, 89.5, 0.5, 89);
|
|
|
|
|
|
|
|
END (modf);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
nearbyint_test (void)
|
|
|
|
{
|
|
|
|
START (nearbyint);
|
|
|
|
|
|
|
|
TEST_f_f (nearbyint, 0.0, 0.0);
|
|
|
|
TEST_f_f (nearbyint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (nearbyint, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (nearbyint, minus_infty, minus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (nearbyint, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2011-12-17 20:59:47 +01:00
|
|
|
/* Subnormal values */
|
|
|
|
TEST_f_f (nearbyint, -8.98847e+307, -8.98847e+307);
|
|
|
|
TEST_f_f (nearbyint, -4.45015e-308, minus_zero);
|
|
|
|
|
2000-02-15 18:30:32 +01:00
|
|
|
/* Default rounding mode is round to nearest. */
|
|
|
|
TEST_f_f (nearbyint, 0.5, 0.0);
|
|
|
|
TEST_f_f (nearbyint, 1.5, 2.0);
|
|
|
|
TEST_f_f (nearbyint, -0.5, minus_zero);
|
|
|
|
TEST_f_f (nearbyint, -1.5, -2.0);
|
2000-06-21 07:54:40 +02:00
|
|
|
|
2008-03-24 20:57:55 +01:00
|
|
|
TEST_f_f (nearbyint, 262144.75, 262145.0);
|
|
|
|
TEST_f_f (nearbyint, 262142.75, 262143.0);
|
|
|
|
TEST_f_f (nearbyint, 524286.75, 524287.0);
|
|
|
|
TEST_f_f (nearbyint, 524288.75, 524289.0);
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (nearbyint);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
nextafter_test (void)
|
|
|
|
{
|
|
|
|
|
|
|
|
START (nextafter);
|
|
|
|
|
|
|
|
TEST_ff_f (nextafter, 0, 0, 0);
|
|
|
|
TEST_ff_f (nextafter, minus_zero, 0, 0);
|
|
|
|
TEST_ff_f (nextafter, 0, minus_zero, minus_zero);
|
|
|
|
TEST_ff_f (nextafter, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (nextafter, 9, 9, 9);
|
|
|
|
TEST_ff_f (nextafter, -9, -9, -9);
|
|
|
|
TEST_ff_f (nextafter, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (nextafter, minus_infty, minus_infty, minus_infty);
|
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (nextafter, nan_value, 1.1L, nan_value);
|
|
|
|
TEST_ff_f (nextafter, 1.1L, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (nextafter, nan_value, nan_value, nan_value);
|
|
|
|
|
2003-12-07 04:25:24 +01:00
|
|
|
FLOAT fltmax = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
|
|
|
|
LDBL_MAX, DBL_MAX, FLT_MAX);
|
|
|
|
TEST_ff_f (nextafter, fltmax, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (nextafter, -fltmax, minus_infty, minus_infty);
|
|
|
|
|
2003-02-15 08:55:59 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
// XXX Enable once gcc is fixed.
|
|
|
|
//TEST_ff_f (nextafter, 0x0.00000040000000000000p-16385L, -0.1L, 0x0.0000003ffffffff00000p-16385L);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
/* XXX We need the hexadecimal FP number representation here for further
|
|
|
|
tests. */
|
|
|
|
|
|
|
|
END (nextafter);
|
|
|
|
}
|
|
|
|
|
1999-10-19 15:53:34 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
nexttoward_test (void)
|
|
|
|
{
|
|
|
|
START (nexttoward);
|
|
|
|
TEST_ff_f (nexttoward, 0, 0, 0);
|
|
|
|
TEST_ff_f (nexttoward, minus_zero, 0, 0);
|
|
|
|
TEST_ff_f (nexttoward, 0, minus_zero, minus_zero);
|
|
|
|
TEST_ff_f (nexttoward, minus_zero, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (nexttoward, 9, 9, 9);
|
|
|
|
TEST_ff_f (nexttoward, -9, -9, -9);
|
|
|
|
TEST_ff_f (nexttoward, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (nexttoward, minus_infty, minus_infty, minus_infty);
|
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (nexttoward, nan_value, 1.1L, nan_value);
|
|
|
|
TEST_ff_f (nexttoward, 1.1L, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (nexttoward, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
/* XXX We need the hexadecimal FP number representation here for further
|
|
|
|
tests. */
|
|
|
|
|
|
|
|
END (nexttoward);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
pow_test (void)
|
|
|
|
{
|
|
|
|
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(pow) (0, 0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (pow);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, 0, 0, 1);
|
|
|
|
TEST_ff_f (pow, 0, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, minus_zero, 0, 1);
|
|
|
|
TEST_ff_f (pow, minus_zero, minus_zero, 1);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, 10, 0, 1);
|
|
|
|
TEST_ff_f (pow, 10, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, -10, 0, 1);
|
|
|
|
TEST_ff_f (pow, -10, minus_zero, 1);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, nan_value, 0, 1);
|
|
|
|
TEST_ff_f (pow, nan_value, minus_zero, 1);
|
|
|
|
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, 1.1L, plus_infty, plus_infty);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, plus_infty, plus_infty, plus_infty);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, -1.1L, plus_infty, plus_infty);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, minus_infty, plus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, 0.9L, plus_infty, 0);
|
|
|
|
TEST_ff_f (pow, 1e-7L, plus_infty, 0);
|
|
|
|
TEST_ff_f (pow, -0.9L, plus_infty, 0);
|
|
|
|
TEST_ff_f (pow, -1e-7L, plus_infty, 0);
|
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, 1.1L, minus_infty, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, plus_infty, minus_infty, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, -1.1L, minus_infty, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, minus_infty, minus_infty, 0);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, 0.9L, minus_infty, plus_infty);
|
|
|
|
TEST_ff_f (pow, 1e-7L, minus_infty, plus_infty);
|
|
|
|
TEST_ff_f (pow, -0.9L, minus_infty, plus_infty);
|
|
|
|
TEST_ff_f (pow, -1e-7L, minus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, plus_infty, 1e-7L, plus_infty);
|
|
|
|
TEST_ff_f (pow, plus_infty, 1, plus_infty);
|
|
|
|
TEST_ff_f (pow, plus_infty, 1e7L, plus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, plus_infty, -1e-7L, 0);
|
|
|
|
TEST_ff_f (pow, plus_infty, -1, 0);
|
|
|
|
TEST_ff_f (pow, plus_infty, -1e7L, 0);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_infty, 1, minus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 11, minus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 1001, minus_infty);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_infty, 2, plus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 12, plus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 1002, plus_infty);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, minus_infty, 0.1L, plus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 1.1L, plus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 11.1L, plus_infty);
|
|
|
|
TEST_ff_f (pow, minus_infty, 1001.1L, plus_infty);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_infty, -1, minus_zero);
|
|
|
|
TEST_ff_f (pow, minus_infty, -11, minus_zero);
|
|
|
|
TEST_ff_f (pow, minus_infty, -1001, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_infty, -2, 0);
|
|
|
|
TEST_ff_f (pow, minus_infty, -12, 0);
|
|
|
|
TEST_ff_f (pow, minus_infty, -1002, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, minus_infty, -0.1L, 0);
|
|
|
|
TEST_ff_f (pow, minus_infty, -1.1L, 0);
|
|
|
|
TEST_ff_f (pow, minus_infty, -11.1L, 0);
|
|
|
|
TEST_ff_f (pow, minus_infty, -1001.1L, 0);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (pow, nan_value, nan_value, nan_value);
|
|
|
|
TEST_ff_f (pow, 0, nan_value, nan_value);
|
2001-02-18 10:02:38 +01:00
|
|
|
TEST_ff_f (pow, 1, nan_value, 1);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, -1, nan_value, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, 1, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, -1, nan_value);
|
|
|
|
|
|
|
|
/* pow (x, NaN) == NaN. */
|
|
|
|
TEST_ff_f (pow, 3.0, nan_value, nan_value);
|
2007-03-05 20:38:56 +01:00
|
|
|
TEST_ff_f (pow, minus_zero, nan_value, nan_value);
|
|
|
|
TEST_ff_f (pow, plus_infty, nan_value, nan_value);
|
|
|
|
TEST_ff_f (pow, -3.0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (pow, minus_infty, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, nan_value, 3.0, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, -3.0, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, minus_infty, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, 2.5, nan_value);
|
|
|
|
TEST_ff_f (pow, nan_value, -2.5, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2001-02-18 10:02:38 +01:00
|
|
|
TEST_ff_f (pow, 1, plus_infty, 1);
|
|
|
|
TEST_ff_f (pow, -1, plus_infty, 1);
|
|
|
|
TEST_ff_f (pow, 1, minus_infty, 1);
|
|
|
|
TEST_ff_f (pow, -1, minus_infty, 1);
|
2004-07-20 09:06:48 +02:00
|
|
|
TEST_ff_f (pow, 1, 1, 1);
|
|
|
|
TEST_ff_f (pow, 1, -1, 1);
|
|
|
|
TEST_ff_f (pow, 1, 1.25, 1);
|
|
|
|
TEST_ff_f (pow, 1, -1.25, 1);
|
|
|
|
TEST_ff_f (pow, 1, 0x1p62L, 1);
|
|
|
|
TEST_ff_f (pow, 1, 0x1p63L, 1);
|
|
|
|
TEST_ff_f (pow, 1, 0x1p64L, 1);
|
|
|
|
TEST_ff_f (pow, 1, 0x1p72L, 1);
|
|
|
|
|
|
|
|
/* pow (x, +-0) == 1. */
|
|
|
|
TEST_ff_f (pow, plus_infty, 0, 1);
|
|
|
|
TEST_ff_f (pow, plus_infty, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, minus_infty, 0, 1);
|
|
|
|
TEST_ff_f (pow, minus_infty, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, 32.75L, 0, 1);
|
|
|
|
TEST_ff_f (pow, 32.75L, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, -32.75L, 0, 1);
|
|
|
|
TEST_ff_f (pow, -32.75L, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, 0x1p72L, 0, 1);
|
|
|
|
TEST_ff_f (pow, 0x1p72L, minus_zero, 1);
|
|
|
|
TEST_ff_f (pow, 0x1p-72L, 0, 1);
|
|
|
|
TEST_ff_f (pow, 0x1p-72L, minus_zero, 1);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, -0.1L, 1.1L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (pow, -0.1L, -1.1L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (pow, -10.1L, 1.1L, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (pow, -10.1L, -1.1L, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2009-04-26 06:46:54 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, 0, -1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, 0, -11, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, minus_zero, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(-0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
|
|
|
TEST_ff_f (pow, minus_zero, -11L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
check_int ("errno for pow(-0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2009-04-26 06:46:54 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, 0, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(0,-even) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, 0, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(0,-num) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, minus_zero, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(-0,-even) == ERANGE", errno, ERANGE, 0, 0, 0);
|
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, minus_zero, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
2009-04-26 06:46:54 +02:00
|
|
|
check_int ("errno for pow(-0,-num) == ERANGE", errno, ERANGE, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2004-07-20 09:06:48 +02:00
|
|
|
TEST_ff_f (pow, 0x1p72L, 0x1p72L, plus_infty);
|
|
|
|
TEST_ff_f (pow, 10, -0x1p72L, 0);
|
|
|
|
TEST_ff_f (pow, max_value, max_value, plus_infty);
|
|
|
|
TEST_ff_f (pow, 10, -max_value, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (pow, 0, 1, 0);
|
|
|
|
TEST_ff_f (pow, 0, 11, 0);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_zero, 1, minus_zero);
|
|
|
|
TEST_ff_f (pow, minus_zero, 11, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (pow, 0, 2, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, 0, 11.1L, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (pow, minus_zero, 2, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (pow, minus_zero, 11.1L, 0);
|
2004-07-20 09:06:48 +02:00
|
|
|
TEST_ff_f (pow, 0, plus_infty, 0);
|
|
|
|
TEST_ff_f (pow, minus_zero, plus_infty, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
/* pow (x, +inf) == +inf for |x| > 1. */
|
|
|
|
TEST_ff_f (pow, 1.5, plus_infty, plus_infty);
|
|
|
|
|
|
|
|
/* pow (x, +inf) == +0 for |x| < 1. */
|
|
|
|
TEST_ff_f (pow, 0.5, plus_infty, 0.0);
|
|
|
|
|
|
|
|
/* pow (x, -inf) == +0 for |x| > 1. */
|
|
|
|
TEST_ff_f (pow, 1.5, minus_infty, 0.0);
|
|
|
|
|
|
|
|
/* pow (x, -inf) == +inf for |x| < 1. */
|
|
|
|
TEST_ff_f (pow, 0.5, minus_infty, plus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* pow (+inf, y) == +inf for y > 0. */
|
|
|
|
TEST_ff_f (pow, plus_infty, 2, plus_infty);
|
|
|
|
|
|
|
|
/* pow (+inf, y) == +0 for y < 0. */
|
|
|
|
TEST_ff_f (pow, plus_infty, -1, 0.0);
|
|
|
|
|
|
|
|
/* pow (-inf, y) == -inf for y an odd integer > 0. */
|
|
|
|
TEST_ff_f (pow, minus_infty, 27, minus_infty);
|
|
|
|
|
|
|
|
/* pow (-inf, y) == +inf for y > 0 and not an odd integer. */
|
|
|
|
TEST_ff_f (pow, minus_infty, 28, plus_infty);
|
|
|
|
|
|
|
|
/* pow (-inf, y) == -0 for y an odd integer < 0. */
|
|
|
|
TEST_ff_f (pow, minus_infty, -3, minus_zero);
|
|
|
|
/* pow (-inf, y) == +0 for y < 0 and not an odd integer. */
|
|
|
|
TEST_ff_f (pow, minus_infty, -2.0, 0.0);
|
|
|
|
|
|
|
|
/* pow (+0, y) == +0 for y an odd integer > 0. */
|
|
|
|
TEST_ff_f (pow, 0.0, 27, 0.0);
|
|
|
|
|
|
|
|
/* pow (-0, y) == -0 for y an odd integer > 0. */
|
|
|
|
TEST_ff_f (pow, minus_zero, 27, minus_zero);
|
|
|
|
|
|
|
|
/* pow (+0, y) == +0 for y > 0 and not an odd integer. */
|
|
|
|
TEST_ff_f (pow, 0.0, 4, 0.0);
|
|
|
|
|
|
|
|
/* pow (-0, y) == +0 for y > 0 and not an odd integer. */
|
|
|
|
TEST_ff_f (pow, minus_zero, 4, 0.0);
|
|
|
|
|
2004-07-20 09:06:48 +02:00
|
|
|
TEST_ff_f (pow, 16, 0.25L, 2);
|
|
|
|
TEST_ff_f (pow, 0x1p64L, 0.125L, 256);
|
|
|
|
TEST_ff_f (pow, 2, 4, 16);
|
|
|
|
TEST_ff_f (pow, 256, 8, 0x1p64L);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (pow, 0.75L, 1.25L, 0.697953644326574699205914060237425566L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2001-05-07 23:29:40 +02:00
|
|
|
#if defined TEST_DOUBLE || defined TEST_LDOUBLE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (pow, -7.49321e+133, -9.80818e+16, 0);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
END (pow);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
remainder_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(remainder) (1.625, 1.0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
START (remainder);
|
|
|
|
|
2011-10-07 21:14:06 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (remainder, 1, 0, nan_value, INVALID_EXCEPTION);
|
2011-10-07 21:14:06 +02:00
|
|
|
check_int ("errno for remainder(1, 0) = EDOM ", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (remainder, 1, minus_zero, nan_value, INVALID_EXCEPTION);
|
2011-10-07 21:14:06 +02:00
|
|
|
check_int ("errno for remainder(1, -0) = EDOM ", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (remainder, plus_infty, 1, nan_value, INVALID_EXCEPTION);
|
2011-10-07 21:14:06 +02:00
|
|
|
check_int ("errno for remainder(INF, 1) = EDOM ", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (remainder, minus_infty, 1, nan_value, INVALID_EXCEPTION);
|
2011-10-07 21:14:06 +02:00
|
|
|
check_int ("errno for remainder(-INF, 1) = EDOM ", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_ff_f (remainder, nan_value, nan_value, nan_value);
|
2011-10-07 21:14:06 +02:00
|
|
|
check_int ("errno for remainder(NAN, NAN) unchanged", errno, 0, 0, 0, 0);
|
|
|
|
errno = 0;
|
|
|
|
TEST_ff_f (remainder, 0, nan_value, nan_value);
|
|
|
|
check_int ("errno for remainder(0, NAN) unchanged", errno, 0, 0, 0, 0);
|
|
|
|
errno = 0;
|
|
|
|
TEST_ff_f (remainder, nan_value, 0, nan_value);
|
|
|
|
check_int ("errno for remainder(NaN, 0) unchanged", errno, 0, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (remainder, 1.625, 1.0, -0.375);
|
|
|
|
TEST_ff_f (remainder, -1.625, 1.0, 0.375);
|
|
|
|
TEST_ff_f (remainder, 1.625, -1.0, -0.375);
|
|
|
|
TEST_ff_f (remainder, -1.625, -1.0, 0.375);
|
|
|
|
TEST_ff_f (remainder, 5.0, 2.0, 1.0);
|
|
|
|
TEST_ff_f (remainder, 3.0, 2.0, -1.0);
|
|
|
|
|
|
|
|
END (remainder);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
remquo_test (void)
|
|
|
|
{
|
|
|
|
/* x is needed. */
|
|
|
|
int x;
|
|
|
|
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(remquo) (1.625, 1.0, &x);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (remquo);
|
|
|
|
|
|
|
|
TEST_ffI_f1 (remquo, 1, 0, nan_value, IGNORE, INVALID_EXCEPTION);
|
|
|
|
TEST_ffI_f1 (remquo, 1, minus_zero, nan_value, IGNORE, INVALID_EXCEPTION);
|
|
|
|
TEST_ffI_f1 (remquo, plus_infty, 1, nan_value, IGNORE, INVALID_EXCEPTION);
|
|
|
|
TEST_ffI_f1 (remquo, minus_infty, 1, nan_value, IGNORE, INVALID_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_ffI_f1 (remquo, nan_value, nan_value, nan_value, IGNORE);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ffI_f1 (remquo, 1.625, 1.0, -0.375, 2);
|
|
|
|
TEST_ffI_f1 (remquo, -1.625, 1.0, 0.375, -2);
|
|
|
|
TEST_ffI_f1 (remquo, 1.625, -1.0, -0.375, -2);
|
|
|
|
TEST_ffI_f1 (remquo, -1.625, -1.0, 0.375, 2);
|
|
|
|
|
|
|
|
TEST_ffI_f1 (remquo, 5, 2, 1, 2);
|
|
|
|
TEST_ffI_f1 (remquo, 3, 2, -1, 2);
|
|
|
|
|
|
|
|
END (remquo);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
rint_test (void)
|
|
|
|
{
|
|
|
|
START (rint);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 0.0, 0.0);
|
|
|
|
TEST_f_f (rint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (rint, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (rint, minus_infty, minus_infty);
|
|
|
|
|
2001-01-29 19:45:41 +01:00
|
|
|
/* Default rounding mode is round to even. */
|
2000-02-15 18:30:32 +01:00
|
|
|
TEST_f_f (rint, 0.5, 0.0);
|
|
|
|
TEST_f_f (rint, 1.5, 2.0);
|
2001-01-29 19:45:41 +01:00
|
|
|
TEST_f_f (rint, 2.5, 2.0);
|
|
|
|
TEST_f_f (rint, 3.5, 4.0);
|
|
|
|
TEST_f_f (rint, 4.5, 4.0);
|
2000-02-15 18:30:32 +01:00
|
|
|
TEST_f_f (rint, -0.5, -0.0);
|
|
|
|
TEST_f_f (rint, -1.5, -2.0);
|
2001-01-29 19:45:41 +01:00
|
|
|
TEST_f_f (rint, -2.5, -2.0);
|
|
|
|
TEST_f_f (rint, -3.5, -4.0);
|
|
|
|
TEST_f_f (rint, -4.5, -4.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (rint, 0.1, 0.0);
|
|
|
|
TEST_f_f (rint, 0.25, 0.0);
|
|
|
|
TEST_f_f (rint, 0.625, 1.0);
|
|
|
|
TEST_f_f (rint, -0.1, -0.0);
|
|
|
|
TEST_f_f (rint, -0.25, -0.0);
|
|
|
|
TEST_f_f (rint, -0.625, -1.0);
|
2008-03-24 20:57:55 +01:00
|
|
|
TEST_f_f (rint, 262144.75, 262145.0);
|
|
|
|
TEST_f_f (rint, 262142.75, 262143.0);
|
|
|
|
TEST_f_f (rint, 524286.75, 524287.0);
|
|
|
|
TEST_f_f (rint, 524288.75, 524289.0);
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.25L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.75L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.25L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.75L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5L, -9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 72057594037927935.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, 72057594037927936.25L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, 72057594037927936.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, 72057594037927936.75L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (rint, 72057594037927937.5L, 72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -72057594037927935.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, -72057594037927936.25L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, -72057594037927936.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (rint, -72057594037927936.75L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (rint, -72057594037927937.5L, -72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (rint, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (rint, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (rint, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (rint, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
|
|
|
|
#endif
|
2000-02-15 18:30:32 +01:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (rint);
|
|
|
|
}
|
|
|
|
|
2005-01-06 22:52:35 +01:00
|
|
|
static void
|
|
|
|
rint_test_tonearest (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (rint_tonearest);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
save_round_mode = fegetround ();
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
if (!fesetround (FE_TONEAREST))
|
2006-03-17 00:17:32 +01:00
|
|
|
{
|
|
|
|
TEST_f_f (rint, 2.0, 2.0);
|
|
|
|
TEST_f_f (rint, 1.5, 2.0);
|
|
|
|
TEST_f_f (rint, 1.0, 1.0);
|
|
|
|
TEST_f_f (rint, 0.5, 0.0);
|
|
|
|
TEST_f_f (rint, 0.0, 0.0);
|
|
|
|
TEST_f_f (rint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (rint, -0.5, -0.0);
|
|
|
|
TEST_f_f (rint, -1.0, -1.0);
|
|
|
|
TEST_f_f (rint, -1.5, -2.0);
|
|
|
|
TEST_f_f (rint, -2.0, -2.0);
|
|
|
|
TEST_f_f (rint, 0.1, 0.0);
|
|
|
|
TEST_f_f (rint, 0.25, 0.0);
|
|
|
|
TEST_f_f (rint, 0.625, 1.0);
|
|
|
|
TEST_f_f (rint, -0.1, -0.0);
|
|
|
|
TEST_f_f (rint, -0.25, -0.0);
|
|
|
|
TEST_f_f (rint, -0.625, -1.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
2006-03-17 00:17:32 +01:00
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
|
|
|
#endif
|
2006-03-17 00:17:32 +01:00
|
|
|
}
|
2005-01-06 22:52:35 +01:00
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
fesetround (save_round_mode);
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
END (rint_tonearest);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
rint_test_towardzero (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (rint_towardzero);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
save_round_mode = fegetround ();
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
if (!fesetround (FE_TOWARDZERO))
|
2006-03-17 00:17:32 +01:00
|
|
|
{
|
|
|
|
TEST_f_f (rint, 2.0, 2.0);
|
|
|
|
TEST_f_f (rint, 1.5, 1.0);
|
|
|
|
TEST_f_f (rint, 1.0, 1.0);
|
|
|
|
TEST_f_f (rint, 0.5, 0.0);
|
|
|
|
TEST_f_f (rint, 0.0, 0.0);
|
|
|
|
TEST_f_f (rint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (rint, -0.5, -0.0);
|
|
|
|
TEST_f_f (rint, -1.0, -1.0);
|
|
|
|
TEST_f_f (rint, -1.5, -1.0);
|
|
|
|
TEST_f_f (rint, -2.0, -2.0);
|
|
|
|
TEST_f_f (rint, 0.1, 0.0);
|
|
|
|
TEST_f_f (rint, 0.25, 0.0);
|
|
|
|
TEST_f_f (rint, 0.625, 0.0);
|
|
|
|
TEST_f_f (rint, -0.1, -0.0);
|
|
|
|
TEST_f_f (rint, -0.25, -0.0);
|
|
|
|
TEST_f_f (rint, -0.625, -0.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
2006-03-17 00:17:32 +01:00
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
|
|
|
#endif
|
2006-03-17 00:17:32 +01:00
|
|
|
}
|
2005-01-06 22:52:35 +01:00
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
fesetround (save_round_mode);
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
END (rint_towardzero);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
rint_test_downward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (rint_downward);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
save_round_mode = fegetround ();
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
if (!fesetround (FE_DOWNWARD))
|
2006-03-17 00:17:32 +01:00
|
|
|
{
|
|
|
|
TEST_f_f (rint, 2.0, 2.0);
|
|
|
|
TEST_f_f (rint, 1.5, 1.0);
|
|
|
|
TEST_f_f (rint, 1.0, 1.0);
|
|
|
|
TEST_f_f (rint, 0.5, 0.0);
|
|
|
|
TEST_f_f (rint, 0.0, 0.0);
|
|
|
|
TEST_f_f (rint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (rint, -0.5, -1.0);
|
|
|
|
TEST_f_f (rint, -1.0, -1.0);
|
|
|
|
TEST_f_f (rint, -1.5, -2.0);
|
|
|
|
TEST_f_f (rint, -2.0, -2.0);
|
|
|
|
TEST_f_f (rint, 0.1, 0.0);
|
|
|
|
TEST_f_f (rint, 0.25, 0.0);
|
|
|
|
TEST_f_f (rint, 0.625, 0.0);
|
|
|
|
TEST_f_f (rint, -0.1, -1.0);
|
|
|
|
TEST_f_f (rint, -0.25, -1.0);
|
|
|
|
TEST_f_f (rint, -0.625, -1.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
2006-03-17 00:17:32 +01:00
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.25L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740994.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
|
|
|
#endif
|
2006-03-17 00:17:32 +01:00
|
|
|
}
|
2005-01-06 22:52:35 +01:00
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
fesetround (save_round_mode);
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
END (rint_downward);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
rint_test_upward (void)
|
|
|
|
{
|
|
|
|
int save_round_mode;
|
|
|
|
START (rint_upward);
|
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
save_round_mode = fegetround ();
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
if (!fesetround (FE_UPWARD))
|
2006-03-17 00:17:32 +01:00
|
|
|
{
|
|
|
|
TEST_f_f (rint, 2.0, 2.0);
|
|
|
|
TEST_f_f (rint, 1.5, 2.0);
|
|
|
|
TEST_f_f (rint, 1.0, 1.0);
|
|
|
|
TEST_f_f (rint, 0.5, 1.0);
|
|
|
|
TEST_f_f (rint, 0.0, 0.0);
|
|
|
|
TEST_f_f (rint, minus_zero, minus_zero);
|
|
|
|
TEST_f_f (rint, -0.5, -0.0);
|
|
|
|
TEST_f_f (rint, -1.0, -1.0);
|
|
|
|
TEST_f_f (rint, -1.5, -1.0);
|
|
|
|
TEST_f_f (rint, -2.0, -2.0);
|
|
|
|
TEST_f_f (rint, 0.1, 1.0);
|
|
|
|
TEST_f_f (rint, 0.25, 1.0);
|
|
|
|
TEST_f_f (rint, 0.625, 1.0);
|
|
|
|
TEST_f_f (rint, -0.1, -0.0);
|
|
|
|
TEST_f_f (rint, -0.25, -0.0);
|
|
|
|
TEST_f_f (rint, -0.625, -0.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
2006-03-17 00:17:32 +01:00
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.25L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740994.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# endif
|
|
|
|
#endif
|
2006-03-17 00:17:32 +01:00
|
|
|
}
|
2005-01-06 22:52:35 +01:00
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
fesetround (save_round_mode);
|
2005-01-06 22:52:35 +01:00
|
|
|
|
|
|
|
END (rint_upward);
|
|
|
|
}
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
round_test (void)
|
|
|
|
{
|
|
|
|
START (round);
|
|
|
|
|
|
|
|
TEST_f_f (round, 0, 0);
|
|
|
|
TEST_f_f (round, minus_zero, minus_zero);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_f (round, 0.2L, 0.0);
|
|
|
|
TEST_f_f (round, -0.2L, minus_zero);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (round, 0.5, 1.0);
|
|
|
|
TEST_f_f (round, -0.5, -1.0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_f_f (round, 0.8L, 1.0);
|
|
|
|
TEST_f_f (round, -0.8L, -1.0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (round, 1.5, 2.0);
|
|
|
|
TEST_f_f (round, -1.5, -2.0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (round, 0.1, 0.0);
|
|
|
|
TEST_f_f (round, 0.25, 0.0);
|
|
|
|
TEST_f_f (round, 0.625, 1.0);
|
|
|
|
TEST_f_f (round, -0.1, -0.0);
|
|
|
|
TEST_f_f (round, -0.25, -0.0);
|
|
|
|
TEST_f_f (round, -0.625, -1.0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (round, 2097152.5, 2097153);
|
|
|
|
TEST_f_f (round, -2097152.5, -2097153);
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (round, 4503599627370495.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (round, 4503599627370496.25L, 4503599627370496.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (round, 4503599627370496.5L, 4503599627370497.0L);
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (round, 4503599627370496.75L, 4503599627370497.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (round, 4503599627370497.5L, 4503599627370498.0L);
|
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (round, 4503599627370494.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (round, 4503599627370495.5000000000001L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (round, 4503599627370496.5000000000001L, 4503599627370497.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (round, -4503599627370495.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (round, -4503599627370496.25L, -4503599627370496.0L);
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (round, -4503599627370496.5L, -4503599627370497.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (round, -4503599627370496.75L, -4503599627370497.0L);
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (round, -4503599627370497.5L, -4503599627370498.0L);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (round, -4503599627370494.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (round, -4503599627370495.5000000000001L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (round, -4503599627370496.5000000000001L, -4503599627370497.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (round, 9007199254740991.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (round, 9007199254740992.25L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (round, 9007199254740992.5L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (round, 9007199254740992.75L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (round, 9007199254740993.5L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (round, -9007199254740991.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (round, -9007199254740992.25L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (round, -9007199254740992.5L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (round, -9007199254740992.75L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (round, -9007199254740993.5L, -9007199254740994.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (round, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (round, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (round, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (round, 9007199254740991.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (round, 9007199254740992.5000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (round, 9007199254740993.5000000000001L, 9007199254740994.0L);
|
|
|
|
|
|
|
|
TEST_f_f (round, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (round, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (round, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (round, -9007199254740991.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (round, -9007199254740992.5000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (round, -9007199254740993.5000000000001L, -9007199254740994.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (round, 72057594037927935.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (round, 72057594037927936.25L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (round, 72057594037927936.5L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (round, 72057594037927936.75L, 72057594037927937.0L);
|
|
|
|
TEST_f_f (round, 72057594037927937.5L, 72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (round, -72057594037927935.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (round, -72057594037927936.25L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (round, -72057594037927936.5L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (round, -72057594037927936.75L, -72057594037927937.0L);
|
|
|
|
TEST_f_f (round, -72057594037927937.5L, -72057594037927938.0L);
|
|
|
|
|
|
|
|
TEST_f_f (round, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (round, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (round, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (round, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
|
|
|
|
TEST_f_f (round, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (round);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
scalb_test (void)
|
|
|
|
{
|
|
|
|
|
|
|
|
START (scalb);
|
|
|
|
|
2001-02-18 20:49:40 +01:00
|
|
|
TEST_ff_f (scalb, 2.0, 0.5, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (scalb, 3.0, -2.5, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (scalb, 0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (scalb, 1, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_ff_f (scalb, 1, 0, 1);
|
|
|
|
TEST_ff_f (scalb, -1, 0, -1);
|
|
|
|
|
|
|
|
TEST_ff_f (scalb, 0, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (scalb, minus_zero, plus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
|
|
|
|
TEST_ff_f (scalb, 0, 2, 0);
|
|
|
|
TEST_ff_f (scalb, minus_zero, -4, minus_zero);
|
|
|
|
TEST_ff_f (scalb, 0, 0, 0);
|
|
|
|
TEST_ff_f (scalb, minus_zero, 0, minus_zero);
|
|
|
|
TEST_ff_f (scalb, 0, -1, 0);
|
|
|
|
TEST_ff_f (scalb, minus_zero, -10, minus_zero);
|
|
|
|
TEST_ff_f (scalb, 0, minus_infty, 0);
|
|
|
|
TEST_ff_f (scalb, minus_zero, minus_infty, minus_zero);
|
|
|
|
|
|
|
|
TEST_ff_f (scalb, plus_infty, -1, plus_infty);
|
|
|
|
TEST_ff_f (scalb, minus_infty, -10, minus_infty);
|
|
|
|
TEST_ff_f (scalb, plus_infty, 0, plus_infty);
|
|
|
|
TEST_ff_f (scalb, minus_infty, 0, minus_infty);
|
|
|
|
TEST_ff_f (scalb, plus_infty, 2, plus_infty);
|
|
|
|
TEST_ff_f (scalb, minus_infty, 100, minus_infty);
|
|
|
|
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_ff_f (scalb, 0.1L, minus_infty, 0.0);
|
|
|
|
TEST_ff_f (scalb, -0.1L, minus_infty, minus_zero);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (scalb, 1, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (scalb, -1, plus_infty, minus_infty);
|
|
|
|
TEST_ff_f (scalb, plus_infty, plus_infty, plus_infty);
|
|
|
|
TEST_ff_f (scalb, minus_infty, plus_infty, minus_infty);
|
|
|
|
|
2001-02-18 20:49:40 +01:00
|
|
|
TEST_ff_f (scalb, plus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_ff_f (scalb, minus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_ff_f (scalb, nan_value, 1, nan_value);
|
|
|
|
TEST_ff_f (scalb, 1, nan_value, nan_value);
|
|
|
|
TEST_ff_f (scalb, nan_value, 0, nan_value);
|
|
|
|
TEST_ff_f (scalb, 0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (scalb, nan_value, plus_infty, nan_value);
|
|
|
|
TEST_ff_f (scalb, plus_infty, nan_value, nan_value);
|
|
|
|
TEST_ff_f (scalb, nan_value, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_ff_f (scalb, 0.8L, 4, 12.8L);
|
|
|
|
TEST_ff_f (scalb, -0.854375L, 5, -27.34L);
|
|
|
|
|
|
|
|
END (scalb);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
scalbn_test (void)
|
|
|
|
{
|
|
|
|
|
|
|
|
START (scalbn);
|
|
|
|
|
|
|
|
TEST_fi_f (scalbn, 0, 0, 0);
|
|
|
|
TEST_fi_f (scalbn, minus_zero, 0, minus_zero);
|
|
|
|
|
|
|
|
TEST_fi_f (scalbn, plus_infty, 1, plus_infty);
|
|
|
|
TEST_fi_f (scalbn, minus_infty, 1, minus_infty);
|
|
|
|
TEST_fi_f (scalbn, nan_value, 1, nan_value);
|
|
|
|
|
|
|
|
TEST_fi_f (scalbn, 0.8L, 4, 12.8L);
|
|
|
|
TEST_fi_f (scalbn, -0.854375L, 5, -27.34L);
|
|
|
|
|
|
|
|
TEST_fi_f (scalbn, 1, 0L, 1);
|
|
|
|
|
|
|
|
END (scalbn);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
scalbln_test (void)
|
|
|
|
{
|
|
|
|
|
|
|
|
START (scalbln);
|
|
|
|
|
|
|
|
TEST_fl_f (scalbln, 0, 0, 0);
|
|
|
|
TEST_fl_f (scalbln, minus_zero, 0, minus_zero);
|
|
|
|
|
|
|
|
TEST_fl_f (scalbln, plus_infty, 1, plus_infty);
|
|
|
|
TEST_fl_f (scalbln, minus_infty, 1, minus_infty);
|
|
|
|
TEST_fl_f (scalbln, nan_value, 1, nan_value);
|
|
|
|
|
|
|
|
TEST_fl_f (scalbln, 0.8L, 4, 12.8L);
|
|
|
|
TEST_fl_f (scalbln, -0.854375L, 5, -27.34L);
|
|
|
|
|
|
|
|
TEST_fl_f (scalbln, 1, 0L, 1);
|
|
|
|
|
|
|
|
END (scalbn);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
signbit_test (void)
|
|
|
|
{
|
|
|
|
|
|
|
|
START (signbit);
|
|
|
|
|
|
|
|
TEST_f_b (signbit, 0, 0);
|
|
|
|
TEST_f_b (signbit, minus_zero, 1);
|
|
|
|
TEST_f_b (signbit, plus_infty, 0);
|
|
|
|
TEST_f_b (signbit, minus_infty, 1);
|
|
|
|
|
|
|
|
/* signbit (x) != 0 for x < 0. */
|
|
|
|
TEST_f_b (signbit, -1, 1);
|
|
|
|
/* signbit (x) == 0 for x >= 0. */
|
|
|
|
TEST_f_b (signbit, 1, 0);
|
|
|
|
|
|
|
|
END (signbit);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
sin_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(sin) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (sin);
|
|
|
|
|
|
|
|
TEST_f_f (sin, 0, 0);
|
|
|
|
TEST_f_f (sin, minus_zero, minus_zero);
|
2009-04-26 03:04:54 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (sin, plus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for sin(+inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (sin, minus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for sin(-inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (sin, nan_value, nan_value);
|
2009-04-26 03:04:54 +02:00
|
|
|
check_int ("errno for sin(NaN) unchanged", errno, 0, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (sin, M_PI_6l, 0.5);
|
|
|
|
TEST_f_f (sin, -M_PI_6l, -0.5);
|
|
|
|
TEST_f_f (sin, M_PI_2l, 1);
|
|
|
|
TEST_f_f (sin, -M_PI_2l, -1);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (sin, 0.75L, 0.681638760023334166733241952779893935L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2003-01-18 02:50:46 +01:00
|
|
|
#ifdef TEST_DOUBLE
|
|
|
|
TEST_f_f (sin, 0.80190127184058835, 0.71867942238767868);
|
2011-10-29 20:08:56 +02:00
|
|
|
TEST_f_f (sin, 2.522464e-1, 2.4957989804940911e-1);
|
2003-01-18 02:50:46 +01:00
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (sin);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
sincos_test (void)
|
|
|
|
{
|
|
|
|
FLOAT sin_res, cos_res;
|
|
|
|
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(sincos) (0, &sin_res, &cos_res);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (sincos);
|
|
|
|
|
|
|
|
/* sincos is treated differently because it returns void. */
|
|
|
|
TEST_extra (sincos, 0, 0, 1);
|
|
|
|
|
|
|
|
TEST_extra (sincos, minus_zero, minus_zero, 1);
|
|
|
|
TEST_extra (sincos, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_extra (sincos, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_extra (sincos, nan_value, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_extra (sincos, M_PI_2l, 1, 0);
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
TEST_extra (sincos, M_PI_6l, 0.5, 0.86602540378443864676372317075293616L);
|
|
|
|
TEST_extra (sincos, M_PI_6l*2.0, 0.86602540378443864676372317075293616L, 0.5);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_extra (sincos, 0.75L, 0.681638760023334166733241952779893935L, 0.731688868873820886311838753000084544L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2003-01-18 02:50:46 +01:00
|
|
|
#ifdef TEST_DOUBLE
|
|
|
|
TEST_extra (sincos, 0.80190127184058835, 0.71867942238767868, 0.69534156199418473);
|
|
|
|
#endif
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (sincos);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
sinh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(sinh) (0.7L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (sinh);
|
|
|
|
TEST_f_f (sinh, 0, 0);
|
|
|
|
TEST_f_f (sinh, minus_zero, minus_zero);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (sinh, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (sinh, minus_infty, minus_infty);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (sinh, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (sinh, 0.75L, 0.822316731935829980703661634446913849L);
|
2001-05-29 17:40:18 +02:00
|
|
|
TEST_f_f (sinh, 0x8p-32L, 1.86264514923095703232705808926175479e-9L);
|
2001-06-19 16:01:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (sinh);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
sqrt_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(sqrt) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (sqrt);
|
|
|
|
|
|
|
|
TEST_f_f (sqrt, 0, 0);
|
|
|
|
TEST_f_f (sqrt, nan_value, nan_value);
|
|
|
|
TEST_f_f (sqrt, plus_infty, plus_infty);
|
|
|
|
|
|
|
|
TEST_f_f (sqrt, minus_zero, minus_zero);
|
|
|
|
|
|
|
|
/* sqrt (x) == NaN plus invalid exception for x < 0. */
|
|
|
|
TEST_f_f (sqrt, -1, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (sqrt, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (sqrt, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (sqrt, 2209, 47);
|
|
|
|
TEST_f_f (sqrt, 4, 2);
|
|
|
|
TEST_f_f (sqrt, 2, M_SQRT2l);
|
|
|
|
TEST_f_f (sqrt, 0.25, 0.5);
|
|
|
|
TEST_f_f (sqrt, 6642.25, 81.5);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (sqrt, 15190.5625L, 123.25L);
|
|
|
|
TEST_f_f (sqrt, 0.75L, 0.866025403784438646763723170752936183L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (sqrt);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
tan_test (void)
|
|
|
|
{
|
2000-09-21 17:51:53 +02:00
|
|
|
errno = 0;
|
|
|
|
FUNC(tan) (0);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (tan);
|
|
|
|
|
|
|
|
TEST_f_f (tan, 0, 0);
|
|
|
|
TEST_f_f (tan, minus_zero, minus_zero);
|
2009-04-26 07:42:49 +02:00
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (tan, plus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 07:42:49 +02:00
|
|
|
check_int ("errno for tan(Inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (tan, minus_infty, nan_value, INVALID_EXCEPTION);
|
2009-04-26 07:42:49 +02:00
|
|
|
check_int ("errno for tan(-Inf) == EDOM", errno, EDOM, 0, 0, 0);
|
|
|
|
errno = 0;
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (tan, nan_value, nan_value);
|
2009-04-26 07:42:49 +02:00
|
|
|
check_int ("errno for tan(NaN) == 0", errno, 0, 0, 0, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (tan, M_PI_4l, 1);
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (tan, 0.75L, 0.931596459944072461165202756573936428L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (tan);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
tanh_test (void)
|
|
|
|
{
|
2000-10-01 00:03:51 +02:00
|
|
|
errno = 0;
|
Update.
* sysdeps/i386/fpu/libm-test-ulps: Update for changes in libm-test.inc.
2000-10-16 Jakub Jelinek <jakub@redhat.com>
* math/libm-test.inc (M_LOG_SQRT_PIl, M_LOG_2_SQRT_PIl): Increase
precision.
(acos_test, asin_text, cexp_test, cos_test, cproj_test, exp10_test,
sin_test, sincos_test, sqrt_test): Likewise. Add L suffixes also
to parameters.
(acosh_test, asinh_test, atan2_test, atanh_test, atan_test, cabs_test,
cacosh_test, cacos_test, casinh_test, casin_test, catanh_test,
catan_test, cbrt_test, ccosh_test, ccos_test, clog10_test, cosh_test,
csinh_test, csin_test, csqrt_test, ctanh_test, ctan_test, erfc_test,
erf_test, exp2_test, expm1_test, exp_test, fmod_test, hypot_test,
j0_test, j1_test, jn_test, lgamma_test, llrint_test, llround_test,
log10_test, log1p_test, log2_test, log_test, lrint_test, lround_test,
nextafter_test, nexttoward_test, pow_test, round_test, scalb_test,
sinh_test, static void, tanh_test, tan_test, tgamma_test, y0_test,
y1_test, yn_test): Add L suffixes also to parameters.
* sysdeps/ieee754/ldbl-128/s_ceill.c (__ceill): Fix mask.
* sysdeps/ieee754/ldbl-128/s_floorl.c (__floorl): Likewise.
* soft-fp/op-2.h (_FP_FRAC_SRS_2): Fix computation of sticky bit.
2000-10-16 Ulrich Drepper <drepper@redhat.com>
2000-10-16 20:17:25 +02:00
|
|
|
FUNC(tanh) (0.7L);
|
2000-10-01 00:03:51 +02:00
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
START (tanh);
|
|
|
|
|
|
|
|
TEST_f_f (tanh, 0, 0);
|
|
|
|
TEST_f_f (tanh, minus_zero, minus_zero);
|
|
|
|
|
1999-10-25 00:04:52 +02:00
|
|
|
#ifndef TEST_INLINE
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (tanh, plus_infty, 1);
|
|
|
|
TEST_f_f (tanh, minus_infty, -1);
|
1999-10-25 00:04:52 +02:00
|
|
|
#endif
|
|
|
|
TEST_f_f (tanh, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (tanh, 0.75L, 0.635148952387287319214434357312496495L);
|
|
|
|
TEST_f_f (tanh, -0.75L, -0.635148952387287319214434357312496495L);
|
2001-05-14 11:25:37 +02:00
|
|
|
|
|
|
|
TEST_f_f (tanh, 1.0L, 0.7615941559557648881194582826047935904L);
|
|
|
|
TEST_f_f (tanh, -1.0L, -0.7615941559557648881194582826047935904L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
2001-06-19 16:01:17 +02:00
|
|
|
/* 2^-57 */
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (tanh, 0x1p-57L, 6.938893903907228377647697925567626953125e-18L);
|
2001-06-19 16:01:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
END (tanh);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
tgamma_test (void)
|
|
|
|
{
|
|
|
|
errno = 0;
|
|
|
|
FUNC(tgamma) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
|
|
|
|
|
|
|
START (tgamma);
|
|
|
|
|
|
|
|
TEST_f_f (tgamma, plus_infty, plus_infty);
|
2004-11-21 20:58:34 +01:00
|
|
|
TEST_f_f (tgamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
|
|
|
TEST_f_f (tgamma, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
/* tgamma (x) == NaN plus invalid exception for integer x <= 0. */
|
|
|
|
TEST_f_f (tgamma, -2, nan_value, INVALID_EXCEPTION);
|
|
|
|
TEST_f_f (tgamma, minus_infty, nan_value, INVALID_EXCEPTION);
|
1999-10-25 00:04:52 +02:00
|
|
|
TEST_f_f (tgamma, nan_value, nan_value);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
TEST_f_f (tgamma, 0.5, M_SQRT_PIl);
|
|
|
|
TEST_f_f (tgamma, -0.5, -M_2_SQRT_PIl);
|
|
|
|
|
|
|
|
TEST_f_f (tgamma, 1, 1);
|
|
|
|
TEST_f_f (tgamma, 4, 6);
|
|
|
|
|
2003-03-22 07:13:35 +01:00
|
|
|
TEST_f_f (tgamma, 0.7L, 1.29805533264755778568117117915281162L);
|
|
|
|
TEST_f_f (tgamma, 1.2L, 0.918168742399760610640951655185830401L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (tgamma);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
trunc_test (void)
|
|
|
|
{
|
|
|
|
START (trunc);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, plus_infty, plus_infty);
|
|
|
|
TEST_f_f (trunc, minus_infty, minus_infty);
|
|
|
|
TEST_f_f (trunc, nan_value, nan_value);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, 0, 0);
|
|
|
|
TEST_f_f (trunc, minus_zero, minus_zero);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (trunc, 0.1, 0);
|
|
|
|
TEST_f_f (trunc, 0.25, 0);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (trunc, 0.625, 0);
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
TEST_f_f (trunc, -0.1, minus_zero);
|
|
|
|
TEST_f_f (trunc, -0.25, minus_zero);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (trunc, -0.625, minus_zero);
|
|
|
|
TEST_f_f (trunc, 1, 1);
|
|
|
|
TEST_f_f (trunc, -1, -1);
|
|
|
|
TEST_f_f (trunc, 1.625, 1);
|
|
|
|
TEST_f_f (trunc, -1.625, -1);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, 1048580.625L, 1048580L);
|
|
|
|
TEST_f_f (trunc, -1048580.625L, -1048580L);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, 8388610.125L, 8388610.0L);
|
|
|
|
TEST_f_f (trunc, -8388610.125L, -8388610.0L);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, 4294967296.625L, 4294967296.0L);
|
|
|
|
TEST_f_f (trunc, -4294967296.625L, -4294967296.0L);
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
#ifdef TEST_LDOUBLE
|
|
|
|
/* The result can only be represented in long double. */
|
|
|
|
TEST_f_f (trunc, 4503599627370495.5L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370496.25L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370496.5L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370496.75L, 4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370497.5L, 4503599627370497.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (trunc, 4503599627370494.5000000000001L, 4503599627370494.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370495.5000000000001L, 4503599627370495.0L);
|
|
|
|
TEST_f_f (trunc, 4503599627370496.5000000000001L, 4503599627370496.0L);
|
|
|
|
# endif
|
2006-03-17 00:17:32 +01:00
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (trunc, -4503599627370495.5L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370496.25L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370496.5L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370496.75L, -4503599627370496.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370497.5L, -4503599627370497.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (trunc, -4503599627370494.5000000000001L, -4503599627370494.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370495.5000000000001L, -4503599627370495.0L);
|
|
|
|
TEST_f_f (trunc, -4503599627370496.5000000000001L, -4503599627370496.0L);
|
|
|
|
# endif
|
2006-01-28 01:15:15 +01:00
|
|
|
|
|
|
|
TEST_f_f (trunc, 9007199254740991.5L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740992.25L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740992.5L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740992.75L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740993.5L, 9007199254740993.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (trunc, 9007199254740991.0000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740992.0000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740993.0000000000001L, 9007199254740993.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740991.5000000000001L, 9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740992.5000000000001L, 9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, 9007199254740993.5000000000001L, 9007199254740993.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (trunc, -9007199254740991.5L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740992.25L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740992.5L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740992.75L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740993.5L, -9007199254740993.0L);
|
|
|
|
|
[BZ #2423]
2006-03-07 Jakub Jelinek <jakub@redhat.com>
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Only run some of the new tests if
LDBL_MANT_DIG > 100.
2006-03-03 Steven Munroe <sjmunroe@us.ibm.com>
Alan Modra <amodra@bigpond.net.au>
* sysdeps/powerpc/fpu/fenv_libc.h (__fegetround, __fesetround):
Define inline implementations.
* sysdeps/powerpc/fpu/fegetround.c: Use __fegetround.
* sysdeps/powerpc/fpu/fesetround.c: Use __fesetround.
* sysdeps/powerpc/fpu/math_ldbl.h: New file.
[BZ #2423]
* math/libm-test.inc [TEST_LDOUBLE] (ceil_test, floor_test, rint_test,
round_test, trunc_test): Add new tests.
* sysdeps/ieee754/ldbl-128ibm/math_ldbl.h
(EXTRACT_IBM_EXTENDED_MANTISSA, INSERT_IBM_EXTENDED_MANTISSA):
Removed, replaced with ...
(ldbl_extract_mantissa, ldbl_insert_mantissa, ldbl_pack, ldbl_unpack,
ldbl_canonicalise, ldbl_nearbyint): New functions.
* sysdeps/ieee754/ldbl-128ibm/e_fmodl.c (__ieee754_fmodl): Replace
EXTRACT_IBM_EXTENDED_MANTISSA and INSERT_IBM_EXTENDED_MANTISSA
with ldbl_extract_mantissa and ldbl_insert_mantissa.
* sysdeps/ieee754/ldbl-128ibm/e_rem_pio2l.c (__ieee754_rem_pio2l):
Replace EXTRACT_IBM_EXTENDED_MANTISSA with ldbl_extract_mantissa.
(ldbl_extract_mantissa, ldbl_insert_mantissa): New inline functions.
* sysdeps/ieee754/ldbl-128ibm/s_ceill.c (__ceill): Handle rounding
that spans doubles in IBM long double format.
* sysdeps/ieee754/ldbl-128ibm/s_floorl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_rintl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_roundl.c: Likewise.
* sysdeps/ieee754/ldbl-128ibm/s_truncl.c: Likewise.
* sysdeps/powerpc/powerpc64/fpu/s_rintl.S: File removed.
2006-03-16 12:47:24 +01:00
|
|
|
# if LDBL_MANT_DIG > 100
|
|
|
|
TEST_f_f (trunc, -9007199254740991.0000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740992.0000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740993.0000000000001L, -9007199254740993.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740991.5000000000001L, -9007199254740991.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740992.5000000000001L, -9007199254740992.0L);
|
|
|
|
TEST_f_f (trunc, -9007199254740993.5000000000001L, -9007199254740993.0L);
|
|
|
|
# endif
|
|
|
|
|
2006-01-28 01:15:15 +01:00
|
|
|
TEST_f_f (trunc, 72057594037927935.5L, 72057594037927935.0L);
|
|
|
|
TEST_f_f (trunc, 72057594037927936.25L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, 72057594037927936.5L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, 72057594037927936.75L, 72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, 72057594037927937.5L, 72057594037927937.0L);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, -72057594037927935.5L, -72057594037927935.0L);
|
|
|
|
TEST_f_f (trunc, -72057594037927936.25L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, -72057594037927936.5L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, -72057594037927936.75L, -72057594037927936.0L);
|
|
|
|
TEST_f_f (trunc, -72057594037927937.5L, -72057594037927937.0L);
|
|
|
|
|
|
|
|
TEST_f_f (trunc, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
|
|
|
|
TEST_f_f (trunc, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (trunc, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
|
|
|
|
TEST_f_f (trunc, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
|
2006-03-17 00:17:32 +01:00
|
|
|
TEST_f_f (trunc, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
|
2006-01-28 01:15:15 +01:00
|
|
|
#endif
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (trunc);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
y0_test (void)
|
|
|
|
{
|
2001-02-15 04:39:03 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(y0) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* y0 is the Bessel function of the second kind of order 0 */
|
|
|
|
START (y0);
|
|
|
|
|
2003-12-28 21:51:48 +01:00
|
|
|
TEST_f_f (y0, -1.0, minus_infty, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (y0, 0.0, minus_infty);
|
|
|
|
TEST_f_f (y0, nan_value, nan_value);
|
|
|
|
TEST_f_f (y0, plus_infty, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (y0, 0.125L, -1.38968062514384052915582277745018693L);
|
|
|
|
TEST_f_f (y0, 0.75L, -0.137172769385772397522814379396581855L);
|
|
|
|
TEST_f_f (y0, 1.0, 0.0882569642156769579829267660235151628L);
|
|
|
|
TEST_f_f (y0, 1.5, 0.382448923797758843955068554978089862L);
|
|
|
|
TEST_f_f (y0, 2.0, 0.510375672649745119596606592727157873L);
|
|
|
|
TEST_f_f (y0, 8.0, 0.223521489387566220527323400498620359L);
|
|
|
|
TEST_f_f (y0, 10.0, 0.0556711672835993914244598774101900481L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (y0);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
y1_test (void)
|
|
|
|
{
|
2001-02-15 04:39:03 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(y1) (1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* y1 is the Bessel function of the second kind of order 1 */
|
|
|
|
START (y1);
|
|
|
|
|
2003-12-28 21:51:48 +01:00
|
|
|
TEST_f_f (y1, -1.0, minus_infty, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_f_f (y1, 0.0, minus_infty);
|
|
|
|
TEST_f_f (y1, plus_infty, 0);
|
|
|
|
TEST_f_f (y1, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_f_f (y1, 0.125L, -5.19993611253477499595928744876579921L);
|
|
|
|
TEST_f_f (y1, 0.75L, -1.03759455076928541973767132140642198L);
|
|
|
|
TEST_f_f (y1, 1.0, -0.781212821300288716547150000047964821L);
|
|
|
|
TEST_f_f (y1, 1.5, -0.412308626973911295952829820633445323L);
|
|
|
|
TEST_f_f (y1, 2.0, -0.107032431540937546888370772277476637L);
|
|
|
|
TEST_f_f (y1, 8.0, -0.158060461731247494255555266187483550L);
|
|
|
|
TEST_f_f (y1, 10.0, 0.249015424206953883923283474663222803L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (y1);
|
|
|
|
}
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
yn_test (void)
|
|
|
|
{
|
2001-02-15 04:39:03 +01:00
|
|
|
FLOAT s, c;
|
1999-10-19 08:29:27 +02:00
|
|
|
errno = 0;
|
2001-02-15 04:23:39 +01:00
|
|
|
FUNC (sincos) (0, &s, &c);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Required function not implemented. */
|
|
|
|
return;
|
1999-10-19 08:29:27 +02:00
|
|
|
FUNC(yn) (1, 1);
|
|
|
|
if (errno == ENOSYS)
|
|
|
|
/* Function not implemented. */
|
|
|
|
return;
|
|
|
|
|
|
|
|
/* yn is the Bessel function of the second kind of order n */
|
|
|
|
START (yn);
|
|
|
|
|
|
|
|
/* yn (0, x) == y0 (x) */
|
2003-12-28 21:51:48 +01:00
|
|
|
TEST_ff_f (yn, 0, -1.0, minus_infty, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (yn, 0, 0.0, minus_infty);
|
|
|
|
TEST_ff_f (yn, 0, nan_value, nan_value);
|
|
|
|
TEST_ff_f (yn, 0, plus_infty, 0);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (yn, 0, 0.125L, -1.38968062514384052915582277745018693L);
|
|
|
|
TEST_ff_f (yn, 0, 0.75L, -0.137172769385772397522814379396581855L);
|
|
|
|
TEST_ff_f (yn, 0, 1.0, 0.0882569642156769579829267660235151628L);
|
|
|
|
TEST_ff_f (yn, 0, 1.5, 0.382448923797758843955068554978089862L);
|
|
|
|
TEST_ff_f (yn, 0, 2.0, 0.510375672649745119596606592727157873L);
|
|
|
|
TEST_ff_f (yn, 0, 8.0, 0.223521489387566220527323400498620359L);
|
|
|
|
TEST_ff_f (yn, 0, 10.0, 0.0556711672835993914244598774101900481L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* yn (1, x) == y1 (x) */
|
2003-12-28 21:51:48 +01:00
|
|
|
TEST_ff_f (yn, 1, -1.0, minus_infty, INVALID_EXCEPTION);
|
1999-10-19 08:29:27 +02:00
|
|
|
TEST_ff_f (yn, 1, 0.0, minus_infty);
|
|
|
|
TEST_ff_f (yn, 1, plus_infty, 0);
|
|
|
|
TEST_ff_f (yn, 1, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (yn, 1, 0.125L, -5.19993611253477499595928744876579921L);
|
|
|
|
TEST_ff_f (yn, 1, 0.75L, -1.03759455076928541973767132140642198L);
|
|
|
|
TEST_ff_f (yn, 1, 1.0, -0.781212821300288716547150000047964821L);
|
|
|
|
TEST_ff_f (yn, 1, 1.5, -0.412308626973911295952829820633445323L);
|
|
|
|
TEST_ff_f (yn, 1, 2.0, -0.107032431540937546888370772277476637L);
|
|
|
|
TEST_ff_f (yn, 1, 8.0, -0.158060461731247494255555266187483550L);
|
|
|
|
TEST_ff_f (yn, 1, 10.0, 0.249015424206953883923283474663222803L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* yn (3, x) */
|
|
|
|
TEST_ff_f (yn, 3, plus_infty, 0);
|
|
|
|
TEST_ff_f (yn, 3, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (yn, 3, 0.125L, -2612.69757350066712600220955744091741L);
|
|
|
|
TEST_ff_f (yn, 3, 0.75L, -12.9877176234475433186319774484809207L);
|
|
|
|
TEST_ff_f (yn, 3, 1.0, -5.82151760596472884776175706442981440L);
|
|
|
|
TEST_ff_f (yn, 3, 2.0, -1.12778377684042778608158395773179238L);
|
|
|
|
TEST_ff_f (yn, 3, 10.0, -0.251362657183837329779204747654240998L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* yn (10, x) */
|
|
|
|
TEST_ff_f (yn, 10, plus_infty, 0);
|
|
|
|
TEST_ff_f (yn, 10, nan_value, nan_value);
|
|
|
|
|
2002-06-20 10:33:17 +02:00
|
|
|
TEST_ff_f (yn, 10, 0.125L, -127057845771019398.252538486899753195L);
|
|
|
|
TEST_ff_f (yn, 10, 0.75L, -2133501638.90573424452445412893839236L);
|
|
|
|
TEST_ff_f (yn, 10, 1.0, -121618014.278689189288130426667971145L);
|
|
|
|
TEST_ff_f (yn, 10, 2.0, -129184.542208039282635913145923304214L);
|
|
|
|
TEST_ff_f (yn, 10, 10.0, -0.359814152183402722051986577343560609L);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
END (yn);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2003-01-07 18:48:42 +01:00
|
|
|
static void
|
|
|
|
significand_test (void)
|
|
|
|
{
|
|
|
|
/* significand returns the mantissa of the exponential representation. */
|
|
|
|
START (significand);
|
|
|
|
|
|
|
|
TEST_f_f (significand, 4.0, 1.0);
|
|
|
|
TEST_f_f (significand, 6.0, 1.5);
|
|
|
|
TEST_f_f (significand, 8.0, 1.0);
|
|
|
|
|
|
|
|
END (significand);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
static void
|
|
|
|
initialize (void)
|
|
|
|
{
|
|
|
|
fpstack_test ("start *init*");
|
|
|
|
plus_zero = 0.0;
|
|
|
|
nan_value = plus_zero / plus_zero; /* Suppress GCC warning */
|
|
|
|
|
|
|
|
minus_zero = FUNC(copysign) (0.0, -1.0);
|
|
|
|
plus_infty = CHOOSE (HUGE_VALL, HUGE_VAL, HUGE_VALF,
|
|
|
|
HUGE_VALL, HUGE_VAL, HUGE_VALF);
|
|
|
|
minus_infty = CHOOSE (-HUGE_VALL, -HUGE_VAL, -HUGE_VALF,
|
|
|
|
-HUGE_VALL, -HUGE_VAL, -HUGE_VALF);
|
2004-07-20 09:06:48 +02:00
|
|
|
max_value = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
|
|
|
|
LDBL_MAX, DBL_MAX, FLT_MAX);
|
|
|
|
min_value = CHOOSE (LDBL_MIN, DBL_MIN, FLT_MIN,
|
|
|
|
LDBL_MIN, DBL_MIN, FLT_MIN);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
(void) &plus_zero;
|
|
|
|
(void) &nan_value;
|
|
|
|
(void) &minus_zero;
|
|
|
|
(void) &plus_infty;
|
|
|
|
(void) &minus_infty;
|
2004-07-20 09:06:48 +02:00
|
|
|
(void) &max_value;
|
|
|
|
(void) &min_value;
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* Clear all exceptions. From now on we must not get random exceptions. */
|
|
|
|
feclearexcept (FE_ALL_EXCEPT);
|
|
|
|
|
|
|
|
/* Test to make sure we start correctly. */
|
|
|
|
fpstack_test ("end *init*");
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Definitions of arguments for argp functions. */
|
|
|
|
static const struct argp_option options[] =
|
|
|
|
{
|
|
|
|
{ "verbose", 'v', "NUMBER", 0, "Level of verbosity (0..3)"},
|
|
|
|
{ "ulps-file", 'u', NULL, 0, "Output ulps to file ULPs"},
|
|
|
|
{ "no-max-error", 'f', NULL, 0,
|
|
|
|
"Don't output maximal errors of functions"},
|
|
|
|
{ "no-points", 'p', NULL, 0,
|
|
|
|
"Don't output results of functions invocations"},
|
1999-10-29 19:38:14 +02:00
|
|
|
{ "ignore-max-ulp", 'i', "yes/no", 0,
|
|
|
|
"Ignore given maximal errors"},
|
1999-10-19 08:29:27 +02:00
|
|
|
{ NULL, 0, NULL, 0, NULL }
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Short description of program. */
|
|
|
|
static const char doc[] = "Math test suite: " TEST_MSG ;
|
|
|
|
|
|
|
|
/* Prototype for option handler. */
|
1999-10-19 15:53:34 +02:00
|
|
|
static error_t parse_opt (int key, char *arg, struct argp_state *state);
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* Data structure to communicate with argp functions. */
|
|
|
|
static struct argp argp =
|
|
|
|
{
|
|
|
|
options, parse_opt, NULL, doc,
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
/* Handle program arguments. */
|
|
|
|
static error_t
|
|
|
|
parse_opt (int key, char *arg, struct argp_state *state)
|
|
|
|
{
|
|
|
|
switch (key)
|
|
|
|
{
|
|
|
|
case 'f':
|
1999-10-20 21:22:24 +02:00
|
|
|
output_max_error = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
break;
|
1999-10-29 19:38:14 +02:00
|
|
|
case 'i':
|
|
|
|
if (strcmp (arg, "yes") == 0)
|
|
|
|
ignore_max_ulp = 1;
|
|
|
|
else if (strcmp (arg, "no") == 0)
|
|
|
|
ignore_max_ulp = 0;
|
|
|
|
break;
|
1999-10-19 08:29:27 +02:00
|
|
|
case 'p':
|
1999-10-20 21:22:24 +02:00
|
|
|
output_points = 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
break;
|
|
|
|
case 'u':
|
|
|
|
output_ulps = 1;
|
|
|
|
break;
|
|
|
|
case 'v':
|
|
|
|
if (optarg)
|
|
|
|
verbose = (unsigned int) strtoul (optarg, NULL, 0);
|
|
|
|
else
|
|
|
|
verbose = 3;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return ARGP_ERR_UNKNOWN;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
/* function to check our ulp calculation. */
|
|
|
|
void
|
|
|
|
check_ulp (void)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
|
|
|
|
FLOAT u, diff, ulp;
|
|
|
|
/* This gives one ulp. */
|
|
|
|
u = FUNC(nextafter) (10, 20);
|
|
|
|
check_equal (10.0, u, 1, &diff, &ulp);
|
|
|
|
printf ("One ulp: % .4" PRINTF_NEXPR "\n", ulp);
|
|
|
|
|
|
|
|
/* This gives one more ulp. */
|
|
|
|
u = FUNC(nextafter) (u, 20);
|
|
|
|
check_equal (10.0, u, 2, &diff, &ulp);
|
|
|
|
printf ("two ulp: % .4" PRINTF_NEXPR "\n", ulp);
|
|
|
|
|
|
|
|
/* And now calculate 100 ulp. */
|
|
|
|
for (i = 2; i < 100; i++)
|
|
|
|
u = FUNC(nextafter) (u, 20);
|
|
|
|
check_equal (10.0, u, 100, &diff, &ulp);
|
|
|
|
printf ("100 ulp: % .4" PRINTF_NEXPR "\n", ulp);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int
|
|
|
|
main (int argc, char **argv)
|
|
|
|
{
|
|
|
|
|
|
|
|
int remaining;
|
|
|
|
|
|
|
|
verbose = 1;
|
|
|
|
output_ulps = 0;
|
|
|
|
output_max_error = 1;
|
|
|
|
output_points = 1;
|
1999-10-29 19:38:14 +02:00
|
|
|
/* XXX set to 0 for releases. */
|
|
|
|
ignore_max_ulp = 0;
|
2000-06-21 07:54:40 +02:00
|
|
|
|
1999-10-19 08:29:27 +02:00
|
|
|
/* Parse and process arguments. */
|
|
|
|
argp_parse (&argp, argc, argv, 0, &remaining, NULL);
|
|
|
|
|
|
|
|
if (remaining != argc)
|
|
|
|
{
|
|
|
|
fprintf (stderr, "wrong number of arguments");
|
|
|
|
argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
|
|
|
|
exit (EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (output_ulps)
|
|
|
|
{
|
|
|
|
ulps_file = fopen ("ULPs", "a");
|
|
|
|
if (ulps_file == NULL)
|
|
|
|
{
|
|
|
|
perror ("can't open file `ULPs' for writing: ");
|
|
|
|
exit (1);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
initialize ();
|
|
|
|
printf (TEST_MSG);
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
check_ulp ();
|
|
|
|
#endif
|
|
|
|
|
1999-10-31 18:37:43 +01:00
|
|
|
/* Keep the tests a wee bit ordered (according to ISO C99). */
|
1999-10-19 08:29:27 +02:00
|
|
|
/* Classification macros: */
|
|
|
|
fpclassify_test ();
|
|
|
|
isfinite_test ();
|
|
|
|
isnormal_test ();
|
|
|
|
signbit_test ();
|
|
|
|
|
|
|
|
/* Trigonometric functions: */
|
|
|
|
acos_test ();
|
|
|
|
asin_test ();
|
|
|
|
atan_test ();
|
|
|
|
atan2_test ();
|
|
|
|
cos_test ();
|
|
|
|
sin_test ();
|
|
|
|
sincos_test ();
|
|
|
|
tan_test ();
|
|
|
|
|
|
|
|
/* Hyperbolic functions: */
|
|
|
|
acosh_test ();
|
|
|
|
asinh_test ();
|
|
|
|
atanh_test ();
|
|
|
|
cosh_test ();
|
|
|
|
sinh_test ();
|
|
|
|
tanh_test ();
|
|
|
|
|
|
|
|
/* Exponential and logarithmic functions: */
|
|
|
|
exp_test ();
|
|
|
|
exp10_test ();
|
|
|
|
exp2_test ();
|
|
|
|
expm1_test ();
|
|
|
|
frexp_test ();
|
|
|
|
ldexp_test ();
|
|
|
|
log_test ();
|
|
|
|
log10_test ();
|
|
|
|
log1p_test ();
|
|
|
|
log2_test ();
|
|
|
|
logb_test ();
|
|
|
|
modf_test ();
|
|
|
|
ilogb_test ();
|
|
|
|
scalb_test ();
|
|
|
|
scalbn_test ();
|
|
|
|
scalbln_test ();
|
2003-01-07 18:48:42 +01:00
|
|
|
significand_test ();
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* Power and absolute value functions: */
|
|
|
|
cbrt_test ();
|
|
|
|
fabs_test ();
|
|
|
|
hypot_test ();
|
|
|
|
pow_test ();
|
|
|
|
sqrt_test ();
|
|
|
|
|
|
|
|
/* Error and gamma functions: */
|
|
|
|
erf_test ();
|
|
|
|
erfc_test ();
|
|
|
|
gamma_test ();
|
|
|
|
lgamma_test ();
|
|
|
|
tgamma_test ();
|
|
|
|
|
|
|
|
/* Nearest integer functions: */
|
|
|
|
ceil_test ();
|
|
|
|
floor_test ();
|
|
|
|
nearbyint_test ();
|
|
|
|
rint_test ();
|
2005-01-06 22:52:35 +01:00
|
|
|
rint_test_tonearest ();
|
|
|
|
rint_test_towardzero ();
|
|
|
|
rint_test_downward ();
|
|
|
|
rint_test_upward ();
|
1999-10-19 08:29:27 +02:00
|
|
|
lrint_test ();
|
2006-09-20 19:29:36 +02:00
|
|
|
lrint_test_tonearest ();
|
|
|
|
lrint_test_towardzero ();
|
|
|
|
lrint_test_downward ();
|
|
|
|
lrint_test_upward ();
|
1999-10-19 08:29:27 +02:00
|
|
|
llrint_test ();
|
2006-03-17 00:17:32 +01:00
|
|
|
llrint_test_tonearest ();
|
|
|
|
llrint_test_towardzero ();
|
|
|
|
llrint_test_downward ();
|
|
|
|
llrint_test_upward ();
|
1999-10-19 08:29:27 +02:00
|
|
|
round_test ();
|
|
|
|
lround_test ();
|
|
|
|
llround_test ();
|
|
|
|
trunc_test ();
|
|
|
|
|
|
|
|
/* Remainder functions: */
|
|
|
|
fmod_test ();
|
|
|
|
remainder_test ();
|
|
|
|
remquo_test ();
|
|
|
|
|
|
|
|
/* Manipulation functions: */
|
|
|
|
copysign_test ();
|
|
|
|
nextafter_test ();
|
1999-10-19 15:53:34 +02:00
|
|
|
nexttoward_test ();
|
1999-10-19 08:29:27 +02:00
|
|
|
|
|
|
|
/* maximum, minimum and positive difference functions */
|
|
|
|
fdim_test ();
|
|
|
|
fmax_test ();
|
|
|
|
fmin_test ();
|
|
|
|
|
|
|
|
/* Multiply and add: */
|
|
|
|
fma_test ();
|
|
|
|
|
|
|
|
/* Complex functions: */
|
|
|
|
cabs_test ();
|
|
|
|
cacos_test ();
|
|
|
|
cacosh_test ();
|
|
|
|
carg_test ();
|
|
|
|
casin_test ();
|
|
|
|
casinh_test ();
|
|
|
|
catan_test ();
|
|
|
|
catanh_test ();
|
|
|
|
ccos_test ();
|
|
|
|
ccosh_test ();
|
|
|
|
cexp_test ();
|
1999-10-21 18:15:57 +02:00
|
|
|
cimag_test ();
|
1999-10-19 08:29:27 +02:00
|
|
|
clog10_test ();
|
|
|
|
clog_test ();
|
1999-10-21 18:15:57 +02:00
|
|
|
conj_test ();
|
1999-10-19 08:29:27 +02:00
|
|
|
cpow_test ();
|
|
|
|
cproj_test ();
|
1999-10-21 18:15:57 +02:00
|
|
|
creal_test ();
|
1999-10-19 08:29:27 +02:00
|
|
|
csin_test ();
|
|
|
|
csinh_test ();
|
|
|
|
csqrt_test ();
|
|
|
|
ctan_test ();
|
|
|
|
ctanh_test ();
|
|
|
|
|
|
|
|
/* Bessel functions: */
|
|
|
|
j0_test ();
|
|
|
|
j1_test ();
|
|
|
|
jn_test ();
|
|
|
|
y0_test ();
|
|
|
|
y1_test ();
|
|
|
|
yn_test ();
|
|
|
|
|
|
|
|
if (output_ulps)
|
|
|
|
fclose (ulps_file);
|
|
|
|
|
|
|
|
printf ("\nTest suite completed:\n");
|
|
|
|
printf (" %d test cases plus %d tests for exception flags executed.\n",
|
|
|
|
noTests, noExcTests);
|
|
|
|
if (noXFails)
|
2000-12-09 04:58:22 +01:00
|
|
|
printf (" %d expected failures occurred.\n", noXFails);
|
1999-10-19 08:29:27 +02:00
|
|
|
if (noXPasses)
|
2000-12-09 04:58:22 +01:00
|
|
|
printf (" %d unexpected passes occurred.\n", noXPasses);
|
1999-10-19 08:29:27 +02:00
|
|
|
if (noErrors)
|
|
|
|
{
|
2000-12-09 04:58:22 +01:00
|
|
|
printf (" %d errors occurred.\n", noErrors);
|
2000-12-05 09:17:58 +01:00
|
|
|
return 1;
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
printf (" All tests passed successfully.\n");
|
2000-12-05 09:17:58 +01:00
|
|
|
|
|
|
|
return 0;
|
1999-10-19 08:29:27 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Local Variables:
|
|
|
|
* mode:c
|
|
|
|
* End:
|
|
|
|
*/
|