From beefd56f56066bf38f7ba7ab9f4a11a41ae93653 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Thu, 10 Aug 2017 19:28:33 +0200 Subject: [PATCH] tests: add test for artificial fpe --- src/tests/normal-tests/compiler.lsp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index 3c5edca80..0a203fcf1 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -1232,3 +1232,14 @@ (program-error () t) (error () nil) (:no-error (v) (declare (ignore v)) nil)))) + +;;; Date 2017-08-10 +;;; Description +;;; +;;; On some platforms (without feenableexcept) compiling code with +;;; constants being infinity cause fpe-exception. +(test cmp.0056.artificial-fpe + (finishes + (funcall (compile nil + '(lambda () + (eql 10d0 ext:double-float-positive-infinity))))))