diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2013-04-02 13:51:02 +0200 |
|---|---|---|
| committer | Thomas Schwinge <thomas@codesourcery.com> | 2013-04-02 13:51:02 +0200 |
| commit | 572676160d5639edc0ecb663147bd291841458d1 (patch) | |
| tree | 26abea75b21e81f568075075249aa3dbedad20c7 /math/test-snan.c | |
| parent | 60c414c346a1d5ef0510ffbdc0ab75f288ee4d3f (diff) | |
| download | glibc-572676160d5639edc0ecb663147bd291841458d1.tar.gz glibc-572676160d5639edc0ecb663147bd291841458d1.tar.xz glibc-572676160d5639edc0ecb663147bd291841458d1.zip | |
New <math.h> macro named issignaling to check for a signaling NaN (sNaN).
It is based on draft TS 18661 and currently enabled as a GNU extension.
Diffstat (limited to 'math/test-snan.c')
| -rw-r--r-- | math/test-snan.c | 44 |
1 files changed, 43 insertions, 1 deletions
diff --git a/math/test-snan.c b/math/test-snan.c index f185cbb45c..82f1dbe209 100644 --- a/math/test-snan.c +++ b/math/test-snan.c @@ -1,4 +1,4 @@ -/* Test signaling NaNs in isnan, isinf, and similar functions. +/* Test signaling NaNs in issignaling, isnan, isinf, and similar functions. Copyright (C) 2008-2013 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Andreas Jaeger <aj@suse.de>, 2005. @@ -119,6 +119,48 @@ NAME (void) \ feenableexcept (FE_ALL_EXCEPT); \ if (sigsetjmp(sigfpe_buf, 0)) \ { \ + printf (#FLOAT " issignaling (qNaN) raised SIGFPE\n"); \ + errors++; \ + } else { \ + check (#FLOAT " issignaling (qNaN)", !issignaling (qNaN_var)); \ + } \ + \ + feclearexcept(FE_ALL_EXCEPT); \ + feenableexcept (FE_ALL_EXCEPT); \ + if (sigsetjmp(sigfpe_buf, 0)) \ + { \ + printf (#FLOAT " issignaling (-qNaN) raised SIGFPE\n"); \ + errors++; \ + } else { \ + check (#FLOAT " issignaling (-qNaN)", !issignaling (-qNaN_var)); \ + } \ + \ + feclearexcept(FE_ALL_EXCEPT); \ + feenableexcept (FE_ALL_EXCEPT); \ + if (sigsetjmp(sigfpe_buf, 0)) \ + { \ + printf (#FLOAT " issignaling (sNaN) raised SIGFPE\n"); \ + errors++; \ + } else { \ + check (#FLOAT " issignaling (sNaN)", \ + SNAN_TESTS (FLOAT) ? issignaling (sNaN_var) : 1); \ + } \ + \ + feclearexcept(FE_ALL_EXCEPT); \ + feenableexcept (FE_ALL_EXCEPT); \ + if (sigsetjmp(sigfpe_buf, 0)) \ + { \ + printf (#FLOAT " issignaling (-sNaN) raised SIGFPE\n"); \ + errors++; \ + } else { \ + check (#FLOAT " issignaling (-sNaN)", \ + SNAN_TESTS (FLOAT) ? issignaling (minus_sNaN_var) : 1); \ + } \ + \ + feclearexcept(FE_ALL_EXCEPT); \ + feenableexcept (FE_ALL_EXCEPT); \ + if (sigsetjmp(sigfpe_buf, 0)) \ + { \ printf (#FLOAT " isnan (qNaN) raised SIGFPE\n"); \ errors++; \ } else { \ |