hadrian: Throw error on duplicate-named flavours
[ghc.git] / testsuite / tests / perf / should_run / T876.hs
1 -- This test allocates a lot more if length is
2 -- not a good consumer
3
4 module Main where
5 import System.Environment (getArgs)
6
7 foo :: Int -> Int
8 foo n = sum [ length [i..n] | i <- [1..n] ]
9
10 main = do { [arg] <- getArgs
11 ; print (foo (read arg)) }