1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/mdo/should_compile/mdo003.hs b/testsuite/tests/mdo/should_compile/mdo003.hs
new file mode 100644
index 0000000000..1a0cb37c2e
--- /dev/null
+++ b/testsuite/tests/mdo/should_compile/mdo003.hs
@@ -0,0 +1,16 @@
+{-# OPTIONS -XRecursiveDo #-}
+
+-- test let bindings
+
+module Main (main) where
+
+import Control.Monad.Fix 
+
+t :: IO Int
+t = mdo x <- return (l "1")
+        let l [] = 0
+            l (x:xs) = 1 + l xs
+        return x
+
+main :: IO ()
+main = t >>= print