ghc/tests/programs/north_array/Main.hs

   1 import Array -- 1.3
   2
   3 val1, val2 :: Array (Int,Int) Int
   4 val1 = array ((1,2), (2,1)) []
   5 val2 = array ((2,1), (1,2)) []
   6
   7 val3 :: Array Integer Double
   8 val3 = array (4, -3) []
   9
  10 main = print ((val1 == val1) && (val2 == val2) && (val3 == val3))