[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / test / runtime / r008.hs

diff --git a/ghc/interpreter/test/runtime/r008.hs b/ghc/interpreter/test/runtime/r008.hs
new file mode 100644 (file)
index 0000000..649afbe
--- /dev/null
+++ b/ghc/interpreter/test/runtime/r008.hs
@@ -0,0 +1,11 @@
+--!!! Dictionary bug demo 
+import Array
+
+a :: Array Int Int
+a = array (1,10) [ (i,i*i) | i <- [1..10] ]
+
+test1 = show a
+test2 = show a
+
+test3 = let a = array (1,10) [ (i,i*i) | i <- [1..10] ] in show a
+test4 = let a = array (1,10) [ (i,i*i) | i <- [1..10] ] in show a
\ No newline at end of file