diff options
author | Edward Z. Yang <ezyang@mit.edu> | 2013-07-20 14:15:15 -0700 |
---|---|---|
committer | Edward Z. Yang <ezyang@mit.edu> | 2013-07-20 14:15:15 -0700 |
commit | 5692f5b8ed9e36ea7da4376fc7169354c55007bd (patch) | |
tree | 1015d0af23d95ee1503a518dbf8ca215ef87fef9 /tests | |
parent | e7128031649485e984d4385c81010ea5dcb8aa78 (diff) |
Fix #7399.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'tests')
-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 |