Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/torture/float128-extend-nan.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Test extensions to __float128 quiet signaling NaNs. */ /* { dg-do run } */ /* { dg-options "-fsignaling-nans" } */ /* { dg-require-effective-target __float128 } */ /* { dg-require-effective-target base_quadfloat_support } */ /* { dg-require-effective-target fenv_exceptions } */ /* { dg-add-options __float128 } */ #include <fenv.h> #include <float.h> #include <stdlib.h> volatile long double a = __builtin_nansl (""); int main (void) { #if LDBL_MANT_DIG < 113 volatile __float128 r = a; feclearexcept (FE_INVALID); r += 1; if (fetestexcept (FE_INVALID)) abort (); #endif exit (0); }