1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/tests/th/TH_pragma.stderr b/testsuite/tests/th/TH_pragma.stderr
new file mode 100644
index 0000000000..15feece963
--- /dev/null
+++ b/testsuite/tests/th/TH_pragma.stderr
@@ -0,0 +1,18 @@
+TH_pragma.hs:1:1: Splicing declarations
+    [d| foo :: Int -> Int
+        {-# NOINLINE foo #-}
+        foo x = x + 1 |]
+  ======>
+    TH_pragma.hs:(6,4)-(8,26)
+    foo :: Int -> Int
+    {-# NOINLINE foo #-}
+    foo x = (x + 1)
+TH_pragma.hs:1:1: Splicing declarations
+    [d| bar :: Num a => a -> a
+        {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
+        bar x = x * 10 |]
+  ======>
+    TH_pragma.hs:(10,4)-(12,31)
+    bar :: forall a. Num a => a -> a
+    {-# SPECIALIZE INLINE[~1] bar :: Float -> Float #-}
+    bar x = (x * 10)