diff options
Diffstat (limited to 'testsuite/tests/array/should_run/arr018.hs')
| -rw-r--r-- | testsuite/tests/array/should_run/arr018.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/array/should_run/arr018.hs b/testsuite/tests/array/should_run/arr018.hs new file mode 100644 index 0000000000..27896aae39 --- /dev/null +++ b/testsuite/tests/array/should_run/arr018.hs @@ -0,0 +1,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 |