1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-api/exactprint/LayoutIn4.hs b/testsuite/tests/ghc-api/exactprint/LayoutIn4.hs
new file mode 100644
index 0000000000..d99d05649d
--- /dev/null
+++ b/testsuite/tests/ghc-api/exactprint/LayoutIn4.hs
@@ -0,0 +1,13 @@
+module LayoutIn4 where
+
+--Layout rule applies after 'where','let','do' and 'of'
+
+--In this Example: rename 'ioFun' to  'io'
+
+main = ioFun "hello" where ioFun s= do  let  k = reverse s
+ --There is a comment
+                                        s <- getLine
+                                        let  q = (k ++ s)
+                                        putStr q
+                                        putStr "foo"
+