nanosleep: simplify carrying

[pspp] / tests / test-roundl.c

diff --git a/tests/test-roundl.c b/tests/test-roundl.c
index 88cb854e79b322c27f28bd0426722d75c111b812..0daace587a76aaf9297e0fcf3fe44f427e2183fb 100644 (file)
--- a/tests/test-roundl.c
+++ b/tests/test-roundl.c
@@ -1,9 +1,9 @@
 /* Test of rounding to nearest, breaking ties away from zero.
 /* Test of rounding to nearest, breaking ties away from zero.

-   Copyright (C) 2007-2008 Free Software Foundation, Inc.
+   Copyright (C) 2007-2011 Free Software Foundation, Inc.

 
    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
 
    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)
+   the Free Software Foundation; either version 3, or (at your option)

    any later version.
 
    This program is distributed in the hope that it will be useful,
    any later version.
 
    This program is distributed in the hope that it will be useful,


@@ -22,28 +22,16 @@
 
 #include <math.h>
 
 
 #include <math.h>
 

+#include "signature.h"
+SIGNATURE_CHECK (roundl, long double, (long double));
+

 #include <float.h>
 #include <float.h>

-#include <stdio.h>
-#include <stdlib.h>

 
 #include "fpucw.h"
 #include "isnanl-nolibm.h"
 
 #include "fpucw.h"
 #include "isnanl-nolibm.h"

-
-#define ASSERT(expr) \
-  do                                                                        \
-    {                                                                       \
-      if (!(expr))                                                          \
-        {                                                                   \
-          fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \
-          fflush (stderr);                                                  \
-          abort ();                                                         \
-        }                                                                   \
-    }                                                                       \
-  while (0)
-
-/* On HP-UX 10.20, negating 0.0L does not yield -0.0L.
-   So we use minus_zero instead.  */
-long double minus_zero = -LDBL_MIN * LDBL_MIN;
+#include "minus-zero.h"
+#include "nan.h"
+#include "macros.h"

 
 int
 main ()
 
 int
 main ()


@@ -54,7 +42,7 @@ main ()
 
   /* Zero.  */
   ASSERT (roundl (0.0L) == 0.0L);
 
   /* Zero.  */
   ASSERT (roundl (0.0L) == 0.0L);

-  ASSERT (roundl (minus_zero) == 0.0L);
+  ASSERT (roundl (minus_zerol) == 0.0L);

   /* Positive numbers.  */
   ASSERT (roundl (0.3L) == 0.0L);
   ASSERT (roundl (0.5L) == 1.0L);
   /* Positive numbers.  */
   ASSERT (roundl (0.3L) == 0.0L);
   ASSERT (roundl (0.5L) == 1.0L);


@@ -85,7 +73,7 @@ main ()
   ASSERT (roundl (1.0 / 0.0L) == 1.0 / 0.0L);
   ASSERT (roundl (-1.0 / 0.0L) == -1.0 / 0.0L);
   /* NaNs.  */
   ASSERT (roundl (1.0 / 0.0L) == 1.0 / 0.0L);
   ASSERT (roundl (-1.0 / 0.0L) == -1.0 / 0.0L);
   /* NaNs.  */

-  ASSERT (isnanl (roundl (0.0L / 0.0L)));
+  ASSERT (isnanl (roundl (NaNl ())));

 
   return 0;
 }
 
   return 0;
 }