Add test for Trac #2632

testsuite/tests/ghc-regress/th/T2632.hs

+{-# LANGUAGE TemplateHaskell #-}
+
+-- Trac #2632
+
+module MkData where
+
+import Language.Haskell.TH
+
+op a b = a + b
+
+decl1 = [d| func = 0 `op` 3 |]
+
+decl2 = [d| op x = x
+            func = 0 `op` 3 |]
+

testsuite/tests/ghc-regress/th/all.T

@@ -114,6 +114,7 @@ test('TH_runIO', normal, compile_fail, ['-v0'])
 test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
 
 test('TH_scope', normal, compile, [''])
+test('T2632', normal, compile, [''])
 
 test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),
 	      run_command,