[project @ 2000-03-06 12:02:37 by simonmar]

Add extra-closing-brace test.

diff --git a/ghc/tests/reader/should_fail/read014.hs b/ghc/tests/reader/should_fail/read014.hs
new file mode 100644 (file)
index 0000000..23ef795
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read014.hs
@@ -0,0 +1,3 @@
+main = f
+  where
+     f = f }

diff --git a/ghc/tests/reader/should_fail/read014.stderr b/ghc/tests/reader/should_fail/read014.stderr
new file mode 100644 (file)
index 0000000..dd89e03
--- /dev/null
+++ b/ghc/tests/reader/should_fail/read014.stderr
@@ -0,0 +1,4 @@
+read014.hs:3: parse error on input `}'
+
+Compilation had errors
+