diff --git a/ghc/tests/reader/should_compile/read009.hs b/ghc/tests/reader/should_compile/read009.hs
new file mode 100644
index 0000000000000000000000000000000000000000..c35b81ac8ef8fbd89660a051ac609501e0ff958f
--- /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
+