1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/th/TH_dupdecl.hs b/testsuite/tests/th/TH_dupdecl.hs
new file mode 100644
index 0000000000..80f1da4068
--- /dev/null
+++ b/testsuite/tests/th/TH_dupdecl.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+-- Two sliced declarations bind the same variable.
+-- This test checks that there's a reasonable error message
+
+module ShouldCompile where
+
+$( [d| x = 1 |] )
+
+$( [d| x = 2 |] )