ghc-exactprint-0.5.0.0: tests/examples/ghc8/T10481.hs

{-# LANGUAGE MagicHash #-}

import GHC.Exts
import Control.Exception

f :: ArithException -> Int#
f x = raise# (toException x)

main = print (I# (f Overflow))