[project @ 1998-07-02 10:47:21 by simonm]

Test for 'main' space leak (fixed in new RTS).

diff --git a/ghc/tests/codeGen/should_run/cg046.hs b/ghc/tests/codeGen/should_run/cg046.hs
new file mode 100644 (file)
index 0000000..fe363d4
--- /dev/null
+++ b/ghc/tests/codeGen/should_run/cg046.hs
@@ -0,0 +1,10 @@
+module Main where
+
+import IO
+
+--!!! CAF space leaks
+
+main = lots_of_xs 10000
+
+lots_of_xs 0 = return ()
+lots_of_xs n = putChar 'x' >> lots_of_xs (n-1)