X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-isnanl.c;h=37551e1fdc301b86df28b5ceec6c44ea1d5fdd62;hb=1697fcca5dcb036ef6647969cbbaad907d16479c;hp=534f15b177748aecf1bca1ff180e9b29f85b5457;hpb=b595b5dbc06a2fa40ff4aa61ca25b77c9486b983;p=gnulib.git

diff --git a/tests/test-isnanl.c b/tests/test-isnanl.c
index 534f15b17..37551e1fd 100644
--- a/tests/test-isnanl.c
+++ b/tests/test-isnanl.c
@@ -1,10 +1,10 @@
 /* Test of isnanl() substitute.
-   Copyright (C) 2007 Free Software Foundation, Inc.
+   Copyright (C) 2007-2008 Free Software Foundation, Inc.
 
-   This program is free software; you can redistribute it and/or modify
+   This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -12,66 +12,12 @@
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software Foundation,
-   Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
 
 #include <config.h>
 
-#if HAVE_LONG_DOUBLE
+#include <math.h>
 
-#include "isnanl.h"
-
-#include <limits.h>
-#include <stdlib.h>
-
-#define ASSERT(expr) if (!(expr)) abort ();
-
-int
-main ()
-{
-  /* Finite values.  */
-  ASSERT (!isnanl (3.141L));
-  ASSERT (!isnanl (3.141e30L));
-  ASSERT (!isnanl (3.141e-30L));
-  ASSERT (!isnanl (-2.718L));
-  ASSERT (!isnanl (-2.718e30L));
-  ASSERT (!isnanl (-2.718e-30L));
-  /* Infinite values.  */
-  ASSERT (!isnanl (1.0L / 0.0L));
-  ASSERT (!isnanl (-1.0L / 0.0L));
-  /* Quiet NaN.  */
-  ASSERT (isnanl (0.0L / 0.0L));
-#if defined LDBL_EXPBIT0_WORD && defined LDBL_EXPBIT0_BIT
-  /* Signalling NaN.  */
-  {
-    #define NWORDS \
-      ((sizeof (long double) + sizeof (unsigned int) - 1) / sizeof (unsigned int))
-    typedef union { long double value; unsigned int word[NWORDS]; }
-            memory_long_double;
-    memory_long_double m;
-    m.value = 0.0L / 0.0L;
-# if LDBL_EXPBIT0_BIT > 0
-    m.word[LDBL_EXPBIT0_WORD] ^= (unsigned int) 1 << (LDBL_EXPBIT0_BIT - 1);
-# else
-    m.word[LDBL_EXPBIT0_WORD + (LDBL_EXPBIT0_WORD < NWORDS / 2 ? 1 : - 1)]
-      ^= (unsigned int) 1 << (sizeof (unsigned int) * CHAR_BIT - 1);
-# endif
-    m.word[LDBL_EXPBIT0_WORD + (LDBL_EXPBIT0_WORD < NWORDS / 2 ? 1 : - 1)]
-      |= (unsigned int) 1 << LDBL_EXPBIT0_BIT;
-    ASSERT (isnanl (m.value));
-  }
-#endif
-  return 0;
-}
-
-#else
-
-int
-main ()
-{
-  return 0;
-}
-
-#endif
+#include "test-isnanl.h"