Relax expm1 tests; i387 in 53-bit precision won't guarantee 0.5ulp.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index a018bdd7a4c77b51213bd9cb562df7e1b60f8d83..94d783c93afb6ea2e033b2134592a44e71dfab52 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -282,9 +282,7 @@ USA.
   (list
    (list 0 0)
    (list (log 2) 1.)
-   (list 1 (- (exp 1) 1))
-   (list (expt 2 -53) (expt 2. -53))
-   (list (- (expt 2 -53)) (- (expt 2. -53))))
+   (list 1 (- (exp 1) 1)))
   (lambda (x y)
     (assert-eqv (expm1 x) y)))
 
@@ -300,7 +298,9 @@ USA.
    (list -0.6 -0.45118836390597356)
    (list 0.6 .8221188003905089)
    (list (log 2) 1.)
-   (list 0.7 1.0137527074704766))
+   (list 0.7 1.0137527074704766)
+   (list (expt 2 -53) (expt 2. -53))
+   (list (- (expt 2 -53)) (- (expt 2. -53))))
   (lambda (x y)
     (assert-<= (relerr y (expm1 x)) 1e-15)))