[project @ 1997-09-05 14:11:05 by simonm]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg016.hs

diff --git a/ghc/tests/codeGen/should_run/cg016.hs b/ghc/tests/codeGen/should_run/cg016.hs
new file mode 100644 (file)
index 0000000..b39fdbc
--- /dev/null
+++ b/ghc/tests/codeGen/should_run/cg016.hs
@@ -0,0 +1,9 @@
+--!!! tests calls of `error' (that make calls of `error'...)
+--
+main = error ("1st call to error\n"++(
+       error ("2nd call to error\n"++(
+       error ("3rd call to error\n"++(
+       error ("4th call to error\n"++(
+       error ("5th call to error\n"++(
+       error ("6th call to error"
+       )))))))))))