Mark (RANGE-REDUCTION PRECISE-PI) as failing on openbsd x86-64.

[sbcl.git] / tests / float.impure.lisp

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index 621520e..2cca99f 100644 (file)
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -302,7 +302,8 @@ fractional bits."
 ;; This test is skipped on x86; as to why see the comment at the test
 ;; (:range-reduction :x87) above.
 (with-test (:name (:range-reduction :precise-pi)
-            :skipped-on :x86)
+            :skipped-on :x86
+            :fails-on '(and :openbsd :x86-64))
   (let ((rational-pi-half (/ (pi-gauss-legendre 2200) 2)))
     (labels ((round-pi-half (x)
                "Return two values as if (ROUND X (/ PI 2)) was called