1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T4316.script b/testsuite/tests/ghci/scripts/T4316.script
new file mode 100644
index 0000000000..b620aac653
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T4316.script
@@ -0,0 +1,23 @@
+:set +m
+:m Control.Monad.State
+flip evalStateT 11 $ do
+  i <- get
+  lift $ do
+    putStrLn "Hello, World!"
+    print i
+
+
+let f = (+ 1)
+in f 2
+
+
+let f = "Hello, World!"
+
+f
+
+let f = True
+
+case f of 
+  False -> putStrLn "Failed"
+  True  -> putStrLn "Pass"
+