1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/tests/profiling/should_run/T17572.hs b/testsuite/tests/profiling/should_run/T17572.hs
new file mode 100644
index 0000000000..8c36b4cefb
--- /dev/null
+++ b/testsuite/tests/profiling/should_run/T17572.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE UnboxedTuples, MagicHash, BlockArguments #-}
+
+import GHC.Exts
+import GHC.Types
+
+doSomething :: Word -> IO Word
+doSomething (W# x) = IO \s ->
+   case newByteArray# 7096# s of -- we need a large ByteArray#
+      (# s, mba #) -> case shrinkMutableByteArray# mba 7020# s of -- shrunk
+            s -> case unsafeFreezeByteArray# mba s of
+               (# s, ba #) -> (# s, W# (indexWordArray# ba 18#) #)
+
+main :: IO ()
+main = do
+   xs <- mapM doSomething [0..300000] -- we need enough elements (to trigger a GC maybe?)
+   print (length xs)