From: simonm <unknown>
Date: Thu, 2 Jul 1998 10:47:21 +0000 (+0000)
Subject: [project @ 1998-07-02 10:47:21 by simonm]
X-Git-Tag: Approx_2487_patches~534
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50c925340de5c9dc859b2047293e6524003aae90;p=ghc-hetmet.git

[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
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)