ghc/interpreter/test/runtime/r008.hs

   1 --!!! Dictionary bug demo
   2 import Array
   3
   4 a :: Array Int Int
   5 a = array (1,10) [ (i,i*i) | i <- [1..10] ]
   6
   7 test1 = show a
   8 test2 = show a
   9
  10 test3 = let a = array (1,10) [ (i,i*i) | i <- [1..10] ] in show a
  11 test4 = let a = array (1,10) [ (i,i*i) | i <- [1..10] ] in show a