testsuite/tests/codeGen/should_run/T7319.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE BangPatterns, MagicHash #-}
import Control.Exception
import System.Environment
import GHC.Exts

main = do
  args <- getArgs
  foo args

foo _ = let !e = toException (ErrorCall "test") in
        raise# e