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

   1 -- Array - accessing empty arrays
   2 --
   3 -- empty arrays are legal, but indexing them is undefined!
   4 --
   5 import Array
   6
   7 main =
   8  let
   9   a1 = array (1,0) [(1,'a')]
  10  in
  11  print (a1!0)