projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.3.38:
[sbcl.git]
/
tests
/
float.impure.lisp
diff --git
a/tests/float.impure.lisp
b/tests/float.impure.lisp
index
f9b8f0d
..
7225011
100644
(file)
--- 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)))
(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)
;;; success
(quit :unix-status 104)