Reorganisation of the source tree
[ghc-hetmet.git] / compiler / ilxGen / tests / test20.hs
diff --git a/compiler/ilxGen/tests/test20.hs b/compiler/ilxGen/tests/test20.hs
new file mode 100644 (file)
index 0000000..157a16d
--- /dev/null
@@ -0,0 +1,9 @@
+
+data N = Z | S N
+
+res Z x y = (# x, y #)
+res (S n) x y = res n x y
+
+(# x, y #) = res (S Z) "no!" "hello world\n"
+
+main = putStr y