blob: 27896aae393887f892a778218abc8f67d370149c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- test for #1131
import Control.Monad.ST
import Data.Array.ST
import Data.Array
import System.Mem
tickle :: Int
tickle = runST (do {
x <- newArray_ (0,100) ;
(readArray :: STUArray s Int Int -> Int -> ST s Int) x 3
})
main :: IO ()
main = do print $ length (replicate 100000 'a')
performGC
print tickle
|
