lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T13001.hs
1 import Data.IORef
2
3 main :: IO ()
4 main = do
5 ref <- newIORef 10000
6 n <- readIORef ref
7 print $ length $ [0::Int, 2 .. n]