ghc-exactprint-0.5.3.1: tests/examples/ghc80/T10481.hs

{-# LANGUAGE MagicHash #-}

import GHC.Exts
import Control.Exception

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

main = print (I# (f Overflow))