aa8fdb441f
PR target/71241 * config/i386/i386.i386-builtin-types.def (CONST_STRING): New primitive type. (FLOAT128_FTYPE_CONST_STRING): New function type. * config/i386/i386.c (enum ix86_builtins) [IX86_BUILTIN_NANQ]: New. [IX86_BUILTIN_NANSQ]: Ditto. (ix86_fold_builtin): Handle IX86_BUILTIN_NANQ and IX86_BUILTIN_NANSQ. (ix86_init_builtin_types) Declare const_string_type_node. Add __builtin_nanq and __builtin_nansq builtin functions. (ix86_expand_builtin): Handle IX86_BUILTIN_NANQ and IX86_BUILTIN_NANSQ. * doc/extend.texi (x86 Built-in Functions): Document __builtin_nanq and __builtin_nansq. testsuite/ChangeLog: PR target/71241 * testsuite/gcc.dg/torture/float128-nan.c: New test. From-SVN: r237338
101 lines
1.8 KiB
C
101 lines
1.8 KiB
C
/* Test __float128 NaN generation. */
|
|
/* { dg-do run { target i?86-*-* x86_64-*-* } } */
|
|
/* { dg-require-effective-target fenv_exceptions } */
|
|
/* { dg-options "" } */
|
|
|
|
#include <fenv.h>
|
|
#include <stdbool.h>
|
|
|
|
typedef unsigned long long int uint64_t;
|
|
|
|
typedef union
|
|
{
|
|
__float128 value;
|
|
|
|
struct
|
|
#ifdef __MINGW32__
|
|
/* Make sure we are using gnu-style bitfield handling. */
|
|
__attribute__ ((gcc_struct))
|
|
#endif
|
|
{
|
|
#if __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
|
|
unsigned negative:1;
|
|
unsigned exponent:15;
|
|
unsigned quiet_nan:1;
|
|
uint64_t mant_high:47;
|
|
uint64_t mant_low:64;
|
|
#else
|
|
uint64_t mant_low:64;
|
|
uint64_t mant_high:47;
|
|
unsigned quiet_nan:1;
|
|
unsigned exponent:15;
|
|
unsigned negative:1;
|
|
#endif
|
|
} nan;
|
|
|
|
} ieee854_float128;
|
|
|
|
bool
|
|
__attribute__((noinline, noclone))
|
|
check_nan (__float128 val, bool quiet)
|
|
{
|
|
ieee854_float128 u;
|
|
volatile __float128 tmp;
|
|
|
|
u.value = val;
|
|
|
|
if (u.nan.exponent != 0x7fff
|
|
|| (u.nan.quiet_nan | u.nan.mant_high | u.nan.mant_low) == 0
|
|
|| u.nan.quiet_nan != quiet)
|
|
return false;
|
|
|
|
if (!__builtin_isnan (u.value))
|
|
return false;
|
|
|
|
feclearexcept (FE_INVALID);
|
|
|
|
tmp = u.value + u.value;
|
|
|
|
if ((fetestexcept (FE_INVALID) != 0) == quiet)
|
|
return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
__float128 nan;
|
|
|
|
nan = __builtin_nanq ("");
|
|
|
|
if (!check_nan (nan, true))
|
|
__builtin_abort ();
|
|
|
|
nan = __builtin_nanq ("0x0");
|
|
|
|
if (!check_nan (nan, true))
|
|
__builtin_abort ();
|
|
|
|
nan = __builtin_nanq ("0x1");
|
|
|
|
if (!check_nan (nan, true))
|
|
__builtin_abort ();
|
|
|
|
nan = __builtin_nansq ("");
|
|
|
|
if (!check_nan (nan, false))
|
|
__builtin_abort ();
|
|
|
|
nan = __builtin_nansq ("0x0");
|
|
|
|
if (!check_nan (nan, false))
|
|
__builtin_abort ();
|
|
|
|
nan = __builtin_nansq ("0x1");
|
|
|
|
if (!check_nan (nan, false))
|
|
__builtin_abort ();
|
|
|
|
return 0;
|
|
}
|