Test Trac #5362

1 files changed, 23 insertions, 0 deletions

diff --git a/testsuite/tests/th/T5362.hs b/testsuite/tests/th/T5362.hs
new file mode 100644
index 0000000000..4a1e67fb4a
--- /dev/null
+++ b/testsuite/tests/th/T5362.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module T5362() where
+
+import System.IO
+import Language.Haskell.TH
+
+$(
+     do fName <- newName "f"
+        gName <- newName "g"
+        let gExp = varE gName
+
+        sdf <- sigD fName [t| () |]
+        sdg <- sigD gName [t| () |]
+        fdf <- funD fName [clause [] (normalB [| undefined $gExp |]) []]
+        fdg <- funD gName [clause [] (normalB [| undefined       |]) []]
+        let ds = [sdf, fdf, sdg, fdg]
+        runIO $ do { putStrLn (pprint ds); hFlush stdout }
+        return ds
+     )
+
+
+