Commit e2d77354 authored by simonmar's avatar simonmar

[project @ 2005-03-17 13:24:17 by simonmar]

Add test for +RTS -xc
parent d0ad02cb
......@@ -53,3 +53,8 @@ test('cg053', normal, compile_and_run, [''])
test('cg054', normal, compile_and_run, [''])
test('cg055', normal, compile_and_run, [''])
test('cg056', normal, compile_and_run, [''])
test('cg057', compose( only_ways(['prof','profasm']),
extra_run_opts('+RTS -xc') ),
compile_and_run, [''])
-- For testing +RTS -xc
import Control.Exception
main = try (evaluate (f ()))
f x = g x
g x = error (show x)
<Main.g,Main.f,Main.main,Main.CAF>
\ No newline at end of file
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