testsuite/tests/rts/divbyzero.hs


1
2
3
4
5
6
7
8
9
10
11
12
13


{-
By default, on Windows a division-by-zero will pop up an annoying dialog box.
We want the RTS to catch it instead.
-}

module Main where

import GHC.Base

main :: IO ()
main = print (5 `divInt` 0)