[project @ 2001-05-09 13:48:18 by simonmar]

Add test for pattern parse errors, in particular getting the line
number right (4.08.2 didn't).

diff --git a/ghc/tests/reader/should_fail/read017.hs b/ghc/tests/reader/should_fail/read017.hs
new file mode 100644 (file)
index 0000000..1d710f5
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read017.hs
@@ -0,0 +1,6 @@
+module ShouldFail where
+
+-- GHC < 5.01 used to get the line number wrong.
+f (f f) = f
+
+g = g

diff --git a/ghc/tests/reader/should_fail/read017.stderr b/ghc/tests/reader/should_fail/read017.stderr
new file mode 100644 (file)
index 0000000..06822e4
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read017.stderr
@@ -0,0 +1 @@
+read017.hs:4: Parse error in pattern