X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Ftests%2FArray%2Farr007%2FMain.hs;fp=ghc%2Flib%2Ftests%2FArray%2Farr007%2FMain.hs;h=e3e4ba0f7bb0d231968403068596146c0718a469;hb=1fb1ab5d53a09607e7f6d2450806760688396387;hp=0000000000000000000000000000000000000000;hpb=fa6fb09e2e4e6918eebc79ed187f32c88817c9db;p=ghc-hetmet.git

diff --git a/ghc/lib/tests/Array/arr007/Main.hs b/ghc/lib/tests/Array/arr007/Main.hs
new file mode 100644
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)