[project @ 1997-12-19 12:22:57 by simonm]

[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
deleted file mode 100644 (file)
index 95abb1c..0000000
--- a/ghc/lib/tests/Array/arr006/Main.hs
+++ /dev/null
@@ -1,11 +0,0 @@
--- 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))