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

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

diff --git a/ghc/lib/tests/Array/arr007/Main.hs b/ghc/lib/tests/Array/arr007/Main.hs
new file mode 100644 (file)
index 0000000..e3e4ba0
--- /dev/null
+++ b/ghc/lib/tests/Array/arr007/Main.hs
@@ -0,0 +1,11 @@
+-- Array - accessing empty arrays
+-- 
+-- empty arrays are legal, but indexing them is undefined!
+--
+import Array
+
+main =
+ let 
+  a1 = array (1,0) [(1,'a')]
+ in
+ print (a1!0)