1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/rts/stack003.hs b/testsuite/tests/rts/stack003.hs
new file mode 100644
index 0000000000..4b6b29fa8d
--- /dev/null
+++ b/testsuite/tests/rts/stack003.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE MagicHash, UnboxedTuples #-}
+
+import GHC.Exts
+import System.Environment
+
+main = do
+  [n] <- fmap (fmap read) getArgs
+  case g n of
+    (# a, b, c, d, e, f, g, h, i #) -> print a
+
+-- a deep stack in which each frame is an unboxed tuple-return, to exercise
+-- the stack underflow machinery.
+g :: Int -> (# Int,Float,Double,Int#,Float#,Double#,Int,Float,Double #)
+g 0 = (# 1, 2.0, 3.0, 1#, 2.0#, 3.0##, 1, 2.0, 3.0 #)
+g x = case g (x-1) of
+        (# a, b, c, d, e, f, g, h, i #) ->
+          (# a+1, b, c, d, e, f, g, h, i #)