Fix #7399.
authorEdward Z. Yang <ezyang@mit.edu>
Sat, 20 Jul 2013 21:15:15 +0000 (14:15 -0700)
committerEdward Z. Yang <ezyang@mit.edu>
Sat, 20 Jul 2013 21:15:15 +0000 (14:15 -0700)
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
tests/libposix/posix004.hs

index de1ec74..56c16f0 100644 (file)
@@ -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