From 74b0de8752f1ff64e6aa97c63a5d46e5251db9fe Mon Sep 17 00:00:00 2001 From: Raymond Toy Date: Wed, 3 Feb 2021 17:04:16 -0800 Subject: [PATCH] Add test for overflow in expt that shouldn't happen We shouldn't get an overflow, but we do because clang 10 miscompiles e_pow.c and causes an overflow. Addresses #101 --- tests/issues.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/tests/issues.lisp b/tests/issues.lisp index af6dd5f59..d3c47767e 100644 --- a/tests/issues.lisp +++ b/tests/issues.lisp @@ -544,3 +544,15 @@ ;; the correct value. (assert-false (funcall (compile nil '(lambda () (array-displacement "aaaaaaaa")))))) + +(define-test issue.101 + (:tag :issues) + ;; Verifies that we don't get unexpected overflow. The actual value + ;; is not really important. The important part is no overflow is + ;; signaled. + ;; + ;; See https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/101 for + ;; more details. + (assert-equalp + 3.0380154777955097d205 + (expt 1.7976931348623157d308 0.6666))) -- GitLab