ghc/lib/tests/Array/arr006/Main.hs

   1 -- Array - empty arrays
   2 --
   3 -- print a couple of them to try to expose empty arrays
   4 -- to a GC or two.
   5 import Array
   6
   7 main =
   8  let
   9   a1 = array (1,0) []
  10  in
  11  print (take 300 $ repeat (a1 :: Array Int Int))