Test (sqrt -0.) = -0., per IEEE 754-2008.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index a3edece17bc6aec3e847b55934904434315d336b..7d8ae81d51f17c0afc989ffa9f8661df740e0405 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -656,6 +656,7 @@ USA.
 (define-enumerated-test 'sqrt-exact
   `((0 0)
     (0. 0.)
+    (-0. -0.)                           ;IEEE 754-2008, 5.4.1, p. 21
     (1 1)
     (1. 1.)
     ;; Square root of perfect square should be exact.