summaryrefslogtreecommitdiff
path: root/testsuite/tests/parser/should_fail/readFail004.hs
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/parser/should_fail/readFail004.hs')
-rw-r--r--testsuite/tests/parser/should_fail/readFail004.hs41
1 files changed, 41 insertions, 0 deletions
diff --git a/testsuite/tests/parser/should_fail/readFail004.hs b/testsuite/tests/parser/should_fail/readFail004.hs
new file mode 100644
index 0000000000..f5e1fb4304
--- /dev/null
+++ b/testsuite/tests/parser/should_fail/readFail004.hs
@@ -0,0 +1,41 @@
+-- !!! string gaps
+-- !!!
+module Main(main) where
+
+-----------
+
+main = putStr "\
+
+\Some girls give me money\n\
+
+\Some girls buy me clothes\n\
+
+\..."
+
+-----------
+
+main2 = putStr "\
+\ \
+..."
+
+-----------
+
+main3 = putStr "\
+
+\Some girls give me money\n\
+-- and here is a comment
+\Some girls buy me clothes\n\
+
+\..."
+
+-----------
+
+main3 = putStr "\
+{-
+ and here is a nested {- comment -}
+-}
+\Some girls give me money\n\
+
+\Some girls buy me clothes\n\
+
+\..."