Commit 71c30957 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a perf test for #5536

parent 6453351e
main :: IO ()
main = do writeFile "T5536.data" (replicate 10000000 'a')
readFile "T5536.data" >>= putStr
......@@ -217,3 +217,19 @@ test('T5237',
],
compile_and_run,
['-O ' + sse2_opts])
test('T5536',
[if_wordsize(32,
stats_num_field('bytes allocated', 2480000000,
2510000000)),
if_wordsize(64,
stats_num_field('bytes allocated', 2480000000,
2510000000)),
# expected value: 2492589480 (amd64/Linux)
extra_clean(['T5536.data']),
ignore_output,
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