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

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

diff --git a/ghc/lib/tests/Array/arr008/Main.hs b/ghc/lib/tests/Array/arr008/Main.hs
deleted file mode 100644 (file)
index c066cdd..0000000
--- a/ghc/lib/tests/Array/arr008/Main.hs
+++ /dev/null
@@ -1,14 +0,0 @@
--- Array - out-of-range (index,value) pairs
--- 
--- supplying a list containing one or more pairs 
--- with out-of-range index is undefined.
---
---
-import Array
-
-main = 
- let 
-  a1 = array (1,0) []
-  a2 = array (0,1) (zip [0..] ['a'..'z'])
- in
- print (a1::Array Int Int) >> print a2