diff --git a/testsuite/tests/ghc-regress/th/TH_reifyDecl2.hs b/testsuite/tests/ghc-regress/th/TH_reifyDecl2.hs
new file mode 100644
index 0000000000000000000000000000000000000000..44c14e024740274305ac92111951aec78887e032
--- /dev/null
+++ b/testsuite/tests/ghc-regress/th/TH_reifyDecl2.hs
@@ -0,0 +1,12 @@
+
+module TH_reifyDecl2 where
+
+import Language.Haskell.TH
+import System.IO
+
+$(
+    do x <- reify ''Maybe
+       runIO $ hPutStrLn stderr $ pprint x
+       return []
+ )
+
diff --git a/testsuite/tests/ghc-regress/th/TH_reifyDecl2.stderr b/testsuite/tests/ghc-regress/th/TH_reifyDecl2.stderr
new file mode 100644
index 0000000000000000000000000000000000000000..1beab4d9c36b0e7cfad9f1ad9aab96a27ba0bce9
--- /dev/null
+++ b/testsuite/tests/ghc-regress/th/TH_reifyDecl2.stderr
@@ -0,0 +1,2 @@
+data Data.Maybe.Maybe a_0 = Data.Maybe.Nothing
+                          | Data.Maybe.Just a_0
diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T
index 349136920e4873147fbe5de70cf700020234a9bb..600bf243d0c21cca9b7e130a401dc8e11b6c791b 100644
--- a/testsuite/tests/ghc-regress/th/all.T
+++ b/testsuite/tests/ghc-regress/th/all.T
@@ -35,6 +35,7 @@ test('TH_spliceD2', normal, multimod_compile, ['TH_spliceD2', '-v0'])
 clean(['TH_spliceD2_Lib.hi', 'TH_spliceD2_Lib.o'])
 
 test('TH_reifyDecl1', normal, compile, [''])
+test('TH_reifyDecl2', normal, compile, ['-v0'])
 
 test('TH_reifyType1', normal, compile, [''])
 test('TH_reifyType2', normal, compile, [''])