Commit fb9a2203 authored by Ian Lynagh's avatar Ian Lynagh

Add a test for length not causing a stack overflow (from #876)

parent c0d7bead
......@@ -21,6 +21,7 @@ test('exceptions001', normal, compile_and_run, [''])
test('exceptions002', normal, compile_and_run, [''])
test('list001' , skip_if_fast, compile_and_run, [''])
test('list002', skip_if_fast, compile_and_run, [''])
test('list003', skip_if_fast, compile_and_run, [''])
test('memo001', compose(skip_if_fast,extra_run_opts('+RTS -A10k -RTS')), \
multimod_compile_and_run, ['memo001',''])
......
-- !!! Test that length doesn't give a stack overflow
module Main (main) where
main :: IO ()
main = print $ length $ filter odd [0 .. 9999999]
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