Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/torture/floatn-nan.h @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Tests for _FloatN / _FloatNx types: compile and execution tests for NaNs. Before including this file, define WIDTH as the value N; define EXT to 1 for _FloatNx and 0 for _FloatN. */ #define CONCATX(X, Y) X ## Y #define CONCAT(X, Y) CONCATX (X, Y) #define CONCAT3(X, Y, Z) CONCAT (CONCAT (X, Y), Z) #define CONCAT4(W, X, Y, Z) CONCAT (CONCAT (CONCAT (W, X), Y), Z) #if EXT # define TYPE CONCAT3 (_Float, WIDTH, x) # define CST(C) CONCAT4 (C, f, WIDTH, x) # define FN(F) CONCAT4 (F, f, WIDTH, x) #else # define TYPE CONCAT (_Float, WIDTH) # define CST(C) CONCAT3 (C, f, WIDTH) # define FN(F) CONCAT3 (F, f, WIDTH) #endif #include <fenv.h> extern void exit (int); extern void abort (void); volatile TYPE nan_cst = FN (__builtin_nan) (""); volatile TYPE nans_cst = FN (__builtin_nans) (""); int main (void) { volatile TYPE r; r = nan_cst + nan_cst; if (fetestexcept (FE_INVALID)) abort (); r = nans_cst + nans_cst; if (!fetestexcept (FE_INVALID)) abort (); exit (0); }