1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/perf/compiler/T16190.hs b/testsuite/tests/perf/compiler/T16190.hs
new file mode 100644
index 0000000000..79479f022d
--- /dev/null
+++ b/testsuite/tests/perf/compiler/T16190.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Main where
+
+import T16190_Embed
+import Foreign.Ptr
+import Foreign.Storable
+import Data.Word
+import GHC.Ptr
+
+ptr :: Ptr Word32
+ptr = Ptr $(embedBytes (replicate (3 * 1000 * 1000) 0x37))
+
+main :: IO ()
+main = do
+   w <- peek (ptr `plusPtr` 12) 
+   print (w == (0x37373737 :: Word32))