summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/rts/outofmem.hs
blob: 9392ab1da07b358005fd4fd5516055be0178da16 (plain)
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)