diff options
| -rw-r--r-- | testsuite/tests/rts/stack003.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/testsuite/tests/rts/stack003.hs b/testsuite/tests/rts/stack003.hs index 4b6b29fa8d..2ca5745f5e 100644 --- a/testsuite/tests/rts/stack003.hs +++ b/testsuite/tests/rts/stack003.hs @@ -6,12 +6,18 @@ 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, b, c, d, e, f, g, h, i, j, k, l #) -> 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 :: Int -> (# Int,Float,Double, + 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, + 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 #) + (# a, b, c, d, e, f, g, h, i, j, k, l #) -> + (# a+1, b, c, d, e, f, g, h, i, j, k, l #) |