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