From 7aeda86754e82ae6d4cff946776ed6c5bd177e2d Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 20 Aug 1999 12:32:43 +0000
Subject: [PATCH] [project @ 1999-08-20 12:32:43 by simonpj] Add rnfail019

---
 ghc/tests/rename/should_fail/rnfail019.hs     | 10 ++++++++++
 ghc/tests/rename/should_fail/rnfail019.stderr |  8 ++++++++
 2 files changed, 18 insertions(+)
 create mode 100644 ghc/tests/rename/should_fail/rnfail019.hs
 create mode 100644 ghc/tests/rename/should_fail/rnfail019.stderr

diff --git a/ghc/tests/rename/should_fail/rnfail019.hs b/ghc/tests/rename/should_fail/rnfail019.hs
new file mode 100644
index 000000000000..7f54942fbb7a
--- /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
index 000000000000..e1a98795f44a
--- /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
+
-- 
GitLab