From 50c925340de5c9dc859b2047293e6524003aae90 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 2 Jul 1998 10:47:21 +0000
Subject: [PATCH] [project @ 1998-07-02 10:47:21 by simonm] Test for 'main'
 space leak (fixed in new RTS).

---
 ghc/tests/codeGen/should_run/cg046.hs |   10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 ghc/tests/codeGen/should_run/cg046.hs

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