[project @ 1999-08-20 12:32:43 by simonpj]

Add rnfail019

diff --git a/ghc/tests/rename/should_fail/rnfail019.hs b/ghc/tests/rename/should_fail/rnfail019.hs
new file mode 100644 (file)
index 0000000..7f54942
--- /dev/null
+++ b/ghc/tests/rename/should_fail/rnfail019.hs
@@ -0,0 +1,10 @@
+module ShouldFail where
+
+-- !!! Section with with a bad precedence
+
+f x y = (x:y:)
+
+-- GHC 4.04 (as released) let this by, but it's a precedence error.
+
+
+

diff --git a/ghc/tests/rename/should_fail/rnfail019.stderr b/ghc/tests/rename/should_fail/rnfail019.stderr
new file mode 100644 (file)
index 0000000..e1a9879
--- /dev/null
+++ b/ghc/tests/rename/should_fail/rnfail019.stderr
@@ -0,0 +1,8 @@
+
+rnfail019.hs:5:
+    The operator `:' [infixr 5] of a section
+       must have lower precedence than the operand `:' [infixr 5]
+       In the section: `((x : y) :)'
+
+Compilation had errors
+