X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=de68a8ac1a09d04984fc8437bfd069c444453981;hb=94ac5b7c3ff37850210b6fc9a7593cf1c5752993;hp=a1e239b9c71891f9bb99c4fd42c5134d39b7c6e7;hpb=ffe8d65266ed7c2c67a0a6ce7ff0de633000037e;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index a1e239b..de68a8a 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -94,6 +94,15 @@
 (eval '(foo-2002-05-13))
 (compile 'foo-2002-05-13)
 (foo-2002-05-13) ; (The bug caused UNDEFINED-FUNCTION to be signalled here.)
+
+;;; floating point pain on the PPC.
+;;;
+;;; This test case used to fail to compile on most powerpcs prior to
+;;; sbcl-0.7.4.2x, as floating point traps were being incorrectly
+;;; masked.
+(defun floating-point-pain (x)
+  (declare (single-float x))
+  (log x))
 
 ;;;; tests not in the problem domain, but of the consistency of the
 ;;;; compiler machinery itself