X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.pure.lisp;h=dfa417ef2d70431f71b55d7c0a25aa4f47dca986;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=8ccc63d6587b0c1bc500d6a02853151e5495fd5a;hpb=cf42b486323a8c50ee1d937ba3eee33777575905;p=sbcl.git

diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp
index 8ccc63d..dfa417e 100644
--- a/tests/float.pure.lisp
+++ b/tests/float.pure.lisp
@@ -82,3 +82,6 @@
                               :cl))
            (value (symbol-value name)))
       (assert (zerop (/ value 2))))))
+
+;;; bug found by Paul Dietz: bad rounding on small floats
+(assert (= (fround least-positive-short-float least-positive-short-float) 1.0))