ghc/tests/array/should_run/arr008.hs

   1 -- !!! Array - out-of-range (index,value) pairs
   2 --
   3 -- supplying a list containing one or more pairs
   4 -- with out-of-range index is undefined.
   5 --
   6 --
   7 import Array
   8
   9 main =
  10  let
  11   a1 = array (1::Int,0) []
  12   a2 = array (0::Int,1) (zip [0..] ['a'..'z'])
  13  in
  14  print (a1::Array Int Int) >> print a2