Commit 58c8934c authored by Joachim Breitner's avatar Joachim Breitner
Browse files

Test case for #8374

parent 60ebfcff
module Main where
main :: IO()
main = print $ length [1..(2^(20::Int)::Integer)]
......@@ -154,3 +154,12 @@ test('topHandler03',
exit_code(143) # actually signal 15 SIGTERM
], compile_and_run, [''])
test('T8374',
[ stats_num_field('bytes allocated', (16828144, 5)),
# with GHC-7.6.3: 83937384 (but faster execution than the next line)
# before: 58771216 (without call-arity-analysis)
# expected value: 16828144 (2014-01-14)
only_ways(['normal'])],
compile_and_run,
['-O'])
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