From e4b4e2e0a79f4138bdff4f10d263436b0155f449 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sun, 8 May 2011 21:13:45 +0100
Subject: [PATCH] Add a test from testsuite/tests/h98

---
 tests/all.T             |  1 +
 tests/largeArray.hs     | 13 +++++++++++++
 tests/largeArray.stdout |  1 +
 3 files changed, 15 insertions(+)
 create mode 100644 tests/largeArray.hs
 create mode 100644 tests/largeArray.stdout

diff --git a/tests/all.T b/tests/all.T
index 9814b76d..2dd8f0ba 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -1,3 +1,4 @@
 
 test('T2120', normal, compile_and_run, [''])
+test('largeArray', normal, compile_and_run, [''])
 
diff --git a/tests/largeArray.hs b/tests/largeArray.hs
new file mode 100644
index 00000000..64414c10
--- /dev/null
+++ b/tests/largeArray.hs
@@ -0,0 +1,13 @@
+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]]
diff --git a/tests/largeArray.stdout b/tests/largeArray.stdout
new file mode 100644
index 00000000..b4de3947
--- /dev/null
+++ b/tests/largeArray.stdout
@@ -0,0 +1 @@
+11
-- 
GitLab