From 5692f5b8ed9e36ea7da4376fc7169354c55007bd Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@mit.edu>
Date: Sat, 20 Jul 2013 14:15:15 -0700
Subject: [PATCH] Fix #7399.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
---
tests/libposix/posix004.hs | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/tests/libposix/posix004.hs b/tests/libposix/posix004.hs
index de1ec74..56c16f0 100644
--- a/tests/libposix/posix004.hs
+++ b/tests/libposix/posix004.hs
@@ -10,6 +10,10 @@ main = do test1
putStrLn "I'm happy."
test1 = do
+ -- Force SIGFPE exceptions to not be ignored. Under some
+ -- circumstances this test will be run with SIGFPE
+ -- ignored, see #7399
+ installHandler sigFPE Default Nothing
forkProcess $ raiseSignal floatingPointException
Just (pid, tc) <- getAnyProcessStatus True False
case tc of
--
GitLab