X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffloat.impure.lisp;h=7225011cb4c7b18554445c2718e3eda08650f3e8;hb=fae139755a81c0431e7f12f2af9b5f3abc1326dc;hp=f9b8f0d29172547142f212c48c1ac7a0f818f25d;hpb=043a8820506178134574627c2d7f07dc79070bd8;p=sbcl.git

diff --git a/tests/float.impure.lisp b/tests/float.impure.lisp
index f9b8f0d..7225011 100644
--- a/tests/float.impure.lisp
+++ b/tests/float.impure.lisp
@@ -62,5 +62,11 @@
 (assert (= (complex-double-float-ppc #c(0.0d0 1.0d0) #c(2.0d0 3.0d0))
            #c(2.0d0 4.0d0)))
 
+(defun single-float-ppc (x)
+  (declare (type (signed-byte 32) x) (optimize speed))
+  (float x 1f0))
+(compile 'single-float-ppc)
+(assert (= (single-float-ppc -30) -30f0))
+
 ;;; success
 (quit :unix-status 104)