Commit 04219cf3 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #7319

parent baf9da65
{-# 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
*** Exception (reporting due to +RTS -xc): (base:GHC.Exception.SomeException), stack trace:
Main.foo,
called from Main.main,
called from Main.CAF
T7319: test
...@@ -94,3 +94,9 @@ test('setByteArray', normal, compile_and_run, ['']) ...@@ -94,3 +94,9 @@ test('setByteArray', normal, compile_and_run, [''])
test('6146', normal, compile_and_run, ['']) test('6146', normal, compile_and_run, [''])
test('T5900', normal, compile_and_run, ['']) test('T5900', normal, compile_and_run, [''])
test('T7163', normal, compile_and_run, ['']) test('T7163', normal, compile_and_run, [''])
# Gives different results when optimised, so restrict to just one way
test('T7319', [ extra_ways(['prof']), only_ways(['prof']), exit_code(1),
req_profiling,
extra_hc_opts('-fprof-auto'),
extra_run_opts('+RTS -xc') ], compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment