[project @ 1997-08-14 18:30:43 by sof]

[ghc-hetmet.git] / ghc / tests / etc / Echo.hs

diff --git a/ghc/tests/etc/Echo.hs b/ghc/tests/etc/Echo.hs
new file mode 100644 (file)
index 0000000..8711420
--- /dev/null
+++ b/ghc/tests/etc/Echo.hs
@@ -0,0 +1,8 @@
+import MiniPrel
+
+main = (ccall getchar)    `thenU` ( \ ch ->
+          case ch of
+            -1# -> (ccall exit 0#)
+            _   -> (ccall putchar ch) `thenU` ( \ _ ->
+                   main )
+        )