X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Farith.pure.lisp;h=6ca3aaafd56e6b4a43dc4cba9b16cde2722af9fb;hb=511f4325a18532f48f8c6f99e0a63862b7b25aed;hp=af1932cce05cf0b57279a17548088b4a95946708;hpb=2230ea0c1765a95fd2aa0a8996b3555b93ba3745;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index af1932c..6ca3aaa 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -359,3 +359,9 @@
                       < <= = >= >
                       eql
                       eq))))
+
+;; GCD used to sometimes return negative values. The following did, on 32 bit
+;; builds.
+(with-test (:name :gcd)
+  (assert (plusp (gcd 20286123923750474264166990598656
+                      680564733841876926926749214863536422912))))