Commit ec709de4 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5625

parent 27d45628
module Main where
main = do { let a = \x -> seq undefined (+1)
; print $ (a `seq` a [] `seq` id) [0] }
......@@ -49,3 +49,6 @@ test('T5453', normal, compile_and_run, [''])
test('T5441', extra_clean(['T5441a.o','T5441a.hi']),
multimod_compile_and_run, ['T5441',''])
test('T5603', normal, compile_and_run, [''])
# Run this test *without* optimisation too
test('T5625', [ only_ways(['normal','optasm']), exit_code(1) ], 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