1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/prog001/simpl006.hs b/testsuite/tests/simplCore/prog001/simpl006.hs
new file mode 100644
index 0000000000..ac38869638
--- /dev/null
+++ b/testsuite/tests/simplCore/prog001/simpl006.hs
@@ -0,0 +1,19 @@
+-- !!! This one sent 4.06 into an infinite loop
+
+-- But it worked ok if Simpl006Help.forever is 
+-- defined in this module.  I have no idea why!
+
+{-# OPTIONS -O #-}
+
+module ShouldCompile where
+
+import Control.Concurrent 
+import Simpl006Help
+
+after :: Int -> IO a -> IO a
+after d c = c
+
+every :: Int -> IO a -> IO ()
+every d c = forever (after d c)
+
+