Commit 0bb02873 authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot
Browse files

Add test for T18574

parent 5c32655f
import Data.Maybe
main :: IO ()
main = print $ even $ sum $ catMaybes $ map xx ([1..100000000] :: [Int])
where
xx n | even n = Just n
| otherwise = Nothing
......@@ -379,3 +379,9 @@ test('UniqLoop',
],
compile_and_run,
['-O -package ghc'])
test('T18574',
[collect_stats('bytes allocated', 5), 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