diff --git a/testsuite/tests/th/T9066.hs b/testsuite/tests/th/T9066.hs
new file mode 100644
index 0000000000000000000000000000000000000000..2e46fe572464ed99eaa822e6d3ac1fc28225dc15
--- /dev/null
+++ b/testsuite/tests/th/T9066.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module T9066 where
+
+$([d| data Blargh = (:<=>) Int Int
+      infix 4 :<=>
+
+      type Foo a b = Either a b
+      infix 5 `Foo`
+        |])
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index a35e1261d0d120b3045b5a78c7f765898b509c77..3d64060f019a7a0b53d48d716d54e9e82b78c984 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -336,3 +336,5 @@ test('T8953', normal, compile, ['-v0'])
 test('T9084', normal, compile_fail, ['-v0'])
 test('T9738', normal, compile, ['-v0'])
 test('T9081', normal, compile, ['-v0'])
+test('T9066', expect_broken(9066), compile, ['-v0'])
+