[project @ 2001-03-15 10:00:32 by simonmar]

newlines in strings aren't allowed.

diff --git a/ghc/tests/reader/should_fail/read002.hs b/ghc/tests/reader/should_fail/read002.hs
new file mode 100644 (file)
index 0000000..869cb86
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read002.hs
@@ -0,0 +1,6 @@
+module ShouldFail where
+
+-- !!! newlines in strings aren't allowed
+
+f = "
+"

diff --git a/ghc/tests/reader/should_fail/read002.stderr b/ghc/tests/reader/should_fail/read002.stderr
new file mode 100644 (file)
index 0000000..c7c56e7
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read002.stderr
@@ -0,0 +1 @@
+read002.hs:5: error in character literal