[commit: unix] master: Fix #7399. (5692f5b)

[Edward Z. Yang]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5692f5b8ed9e36ea7da4376fc7169354c55007bd

>---------------------------------------------------------------

commit 5692f5b8ed9e36ea7da4376fc7169354c55007bd
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Sat Jul 20 14:15:15 2013 -0700

    Fix #7399.
    
    Signed-off-by: Edward Z. Yang <ezyang at 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