X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;h=2cca99f296bea563a73288fba2f584b164b2af07;hb=df217516b1ee2c0d1fa241b97c540f2d8eb9a805;hp=621520e9d47cbfdc8807c1c593af031990c501db;hpb=961c6bf2eda5d492d5dbb7e275fe4e0931f7adf8;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index 621520e9..2cca99f 100644
--- 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