Commit 83654240 authored by Matthew Pickering's avatar Matthew Pickering Committed by Marge Bot

Add (expect_broken) test for #11545

parent 048af266
Pipeline #33977 canceled with stages
in 33 seconds
module T11545 where
data A = A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A deriving (Eq)
data QuadTree a = QuadTree !Int [a] (QuadTree a) (QuadTree a) (QuadTree a) (QuadTree a)
foldQuadTree :: (a -> b -> b) -> Int -> b -> QuadTree a -> b
foldQuadTree f maxSize = go
where
go z (QuadTree size elems t1 t2 t3 t4)
| size <= maxSize = foldr f z elems
| otherwise = go (go (go (go z t4) t3) t2) t1
......@@ -452,3 +452,7 @@ test ('T9198',
[ collect_compiler_stats('bytes allocated',2) ],
compile,
[''])
test('T11545',
[ expect_broken(11545) ],
compile, ['-O +RTS -M50M -RTS'])
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