Repository : ssh://darcs.haskell.org//srv/darcs/packages/array On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e4b4e2e0a79f4138bdff4f10d263436b0155f449 >--------------------------------------------------------------- commit e4b4e2e0a79f4138bdff4f10d263436b0155f449 Author: Ian Lynagh <[email protected]> Date: Sun May 8 21:13:45 2011 +0100 Add a test from testsuite/tests/h98 >--------------------------------------------------------------- tests/all.T | 1 + tests/largeArray.hs | 13 +++++++++++++ tests/largeArray.stdout | 1 + 3 files changed, 15 insertions(+), 0 deletions(-) diff --git a/tests/all.T b/tests/all.T index 9814b76..2dd8f0b 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 0000000..64414c1 --- /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 0000000..b4de394 --- /dev/null +++ b/tests/largeArray.stdout @@ -0,0 +1 @@ +11 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
