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

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

diff --git a/ghc/lib/tests/Array/arr001/Main.hs b/ghc/lib/tests/Array/arr001/Main.hs
new file mode 100644 (file)
index 0000000..4785170
--- /dev/null
+++ b/ghc/lib/tests/Array/arr001/Main.hs
@@ -0,0 +1,9 @@
+-- Simple array creation
+
+import Array
+
+main =
+ let a1 = array (1,3) (zip [2,3,1] ['a'..'d']) in
+ print a1
+
+-- Result: