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: Fix #7399.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
---
 tests/libposix/posix004.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests')

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
-- 
cgit v1.2.3