ghc/tests/array/should_run/arr007.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::Int,0) [(1,'a')]
  10  in
  11  print (a1!0)