Add a test TH_sections for trac #2956

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

+
+-- Test for trac #2956
+
+module TH_sections where
+
+two :: Int
+two = $( [| (1 +) 1 |] )
+
+three :: Int
+three = $( [| (+ 2) 1 |] )
+

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

@@ -130,3 +130,6 @@ test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),
 
 test('T2685', extra_clean(['T2685a.hi','T2685a.o']), 
               multimod_compile, ['T2685','-v0'])
+
+test('TH_sections', normal, compile, ['-v0'])
+