[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / lib / tests / Array / arr006 / Main.hs

diff --git a/ghc/lib/tests/Array/arr006/Main.hs b/ghc/lib/tests/Array/arr006/Main.hs
new file mode 100644 (file)
index 0000000..95abb1c
--- /dev/null
+++ b/ghc/lib/tests/Array/arr006/Main.hs
@@ -0,0 +1,11 @@
+-- Array - empty arrays
+-- 
+-- print a couple of them to try to expose empty arrays 
+-- to a GC or two.
+import Array
+
+main =
+ let 
+  a1 = array (1,0) []
+ in
+ print (take 300 $ repeat (a1 :: Array Int Int))