Add a test from testsuite/tests/h98

tests/all.T

 
 test('T2120', normal, compile_and_run, [''])
+test('largeArray', normal, compile_and_run, [''])
 

tests/largeArray.hs

+import Data.Array
+
+main :: IO ()
+main = print (((!1).inc.inc.inc.inc.inc.inc.inc.inc.inc.inc) a)
+
+size :: Int
+size = 60
+
+a :: Array Int Integer
+a = listArray (1,size) [1..]
+
+inc :: Array Int Integer -> Array Int Integer
+inc a = accum (+) a [(i,1) | i <- [1..size]]

tests/largeArray.stdout

+11