X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=69ff13c75e331b3079c358ab3f7abca5e562336e;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=c5e6d61f6c6eb68ff3b652fd3f600b8154a2bcd8;hpb=479ef26343b45753fc019b6535d3aa0ee54cb324;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index c5e6d61..69ff13c 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -129,5 +129,10 @@
 ;;; expanders.
 (funcall (formatter "~@<~A~:*~A~:>") nil 3)
 
+;;; the PPC floating point backend was at one point sufficiently
+;;; broken that this looped infinitely or caused segmentation
+;;; violations through stack corruption.
+(print 0.0001)
+
 ;;; success
 (quit :unix-status 104)