diff --git a/ghc/tests/rename/should_fail/rnfail019.hs b/ghc/tests/rename/should_fail/rnfail019.hs new file mode 100644 index 0000000000000000000000000000000000000000..7f54942fbb7a3f961043f30063f4292688482abd --- /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 0000000000000000000000000000000000000000..e1a98795f44a850a39647c429ef1a6b5301f6fe3 --- /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 +