ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T10481.hs

{-# LANGUAGE MagicHash #-}

import GHC.Exts
import Control.Exception

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

main = print (I# (f Overflow))