add test for #1131

1 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-regress/array/should_run/arr018.hs b/testsuite/tests/ghc-regress/array/should_run/arr018.hs
new file mode 100644
index 0000000000..27896aae39
--- /dev/null
+++ b/testsuite/tests/ghc-regress/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