diff --git a/testsuite/tests/ghc-regress/th/TH_bracket1.hs b/testsuite/tests/ghc-regress/th/TH_bracket1.hs
new file mode 100644
index 0000000000000000000000000000000000000000..5547764de9fa44c2a1e9b310af533693387343e4
--- /dev/null
+++ b/testsuite/tests/ghc-regress/th/TH_bracket1.hs
@@ -0,0 +1,7 @@
+-- Check that declarations in a bracket shadow the top-level 
+-- declarations, rather than clashing with them.
+
+module TH_bracket1 where
+
+foo = 1
+bar = [d| foo = 1|]
diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T
index b482f2ed86f69bb66da59e4508293005cdd50159..cab43840c80508afccaba8977157aaa14eaf0165 100644
--- a/testsuite/tests/ghc-regress/th/all.T
+++ b/testsuite/tests/ghc-regress/th/all.T
@@ -24,3 +24,5 @@ test('TH_spliceDecl2', normal, compile, ['-v0'])
 test('TH_spliceDecl3', normal, multimod_compile, ['TH_spliceDecl3', '-v0'])
 
 test('TH_spliceExpr1', normal, compile, ['-v0'])
+
+test('TH_bracket1', normal, compile, [''])