Merge pull request #33 from thomie/master
[packages/random.git] / tests / T7936.hs
1 -- Test for ticket #7936:
2 -- https://ghc.haskell.org/trac/ghc/ticket/7936
3 --
4 -- Used to fail with:
5 --
6 -- $ cabal test T7936 --test-options="+RTS -M1M -RTS"
7 -- T7936: Heap exhausted;
8
9 module Main where
10
11 import System.Random (newStdGen)
12 import Control.Monad (replicateM_)
13
14 main = replicateM_ 100000 newStdGen