diff options
-rw-r--r-- | tests/libposix/posix004.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |