Commit a67156ee authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7954

parent 03fe9141
module Main where
norm :: [Double] -> Double
norm = sqrt . sum . map (\x -> x*x)
main :: IO ()
main = print (norm (enumFromTo 0 10000000) > 100)
......@@ -274,3 +274,12 @@ test('T7797',
compile_and_run,
['-O'])
test('T7954',
[stats_num_field('bytes allocated',
[(wordsize(32), 880051408, 10),
(wordsize(64), 1680051408, 10)]),
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