testsuite/tests/rts/outofmem.hs


1
2
3
4
5
6
7

module Main where
import Data.Array.IO
import Control.Monad
main = do
  arrs <- sequence $ repeat $ (newArray_ (0,2^28) :: IO (IOUArray Int Int))
        -- larger than 2^28 causes other problems...
  print (length arrs)