testsuite/tests/ghc-regress/array/should_run/arr006.hs


1
2
3
4
5
6
7
8
9
10
11

-- !!! Array - empty arrays
-- 
-- print a couple of them to try to expose empty arrays 
-- to a GC or two.
import Data.Array

main =
 let 
  a1 = array (1,0) []
 in
 print (take 300 $ repeat (a1 :: Array Int Int))