testsuite: Widen acceptance window of T1969
[ghc.git] / testsuite / tests / perf / should_run / T7797.hs
1 {-# LANGUAGE ExistentialQuantification #-}
2 module Main where
3
4 import T7797a
5
6 data Box = forall a. (Size a) => Box a a
7
8 box = Box (go 10000000) (go 10000000) where
9 go :: Int -> [Int]
10 go 0 = []
11 go n = 1 : go (n - 1)
12 {-# NOINLINE box #-}
13
14 main = print $ case box of
15 Box l r -> size l r