testsuite/tests/rts/stack001.hs


1
2
3
4
5
6
7
8
9

module Main where

import Control.Concurrent
import Control.Exception

main = do
  -- stack will grow as we evaluate the expression, and then shrink again
  evaluate $ foldr (+) 0 [1..200000]
  threadDelay 10 -- allow stack to shrink back to its smallest size