[project @ 1998-02-12 14:57:41 by simonm]

combining undeclared infix operators (from a bug in Hugs).

diff --git a/ghc/tests/reader/should_compile/read009.hs b/ghc/tests/reader/should_compile/read009.hs
new file mode 100644 (file)
index 0000000..c35b81a
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read009.hs
@@ -0,0 +1,8 @@
+module ShouldSucceed where
+
+--!!! combining undeclared infix operators
+
+-- should default to 'infixl 9'
+
+test = let f x y = x+y in 1 `f` 2 `f` 3
+