From b16f846dfa03b4570eaa7d0ce18f0f7c3d9ee015 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 9 May 2001 13:48:18 +0000
Subject: [PATCH] [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).

---
 ghc/tests/reader/should_fail/read017.hs     |    6 ++++++
 ghc/tests/reader/should_fail/read017.stderr |    1 +
 2 files changed, 7 insertions(+)
 create mode 100644 ghc/tests/reader/should_fail/read017.hs
 create mode 100644 ghc/tests/reader/should_fail/read017.stderr

diff --git a/ghc/tests/reader/should_fail/read017.hs b/ghc/tests/reader/should_fail/read017.hs
new file mode 100644
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
index 0000000..06822e4
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read017.stderr
@@ -0,0 +1 @@
+read017.hs:4: Parse error in pattern
-- 
1.7.10.4