Commit 7f3a9de1 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5920

parent 1d59d3a6
module Main where
-- Stack overflow if the tail recursion does not work
goInt :: Integer -> Integer -> Int
goInt 500 100000 = 0
goInt x 100000 = goInt (x+1) 1
goInt x y = goInt x (y+1)
main = print $ goInt 1 1
......@@ -54,3 +54,4 @@ test('T5603', normal, compile_and_run, [''])
test('T5625', [ only_ways(['normal','optasm']), exit_code(1) ], compile_and_run, [''])
test('T5587', [ only_ways(['normal','optasm']), exit_code(1) ], compile_and_run, [''])
test('T5915', only_ways(['normal','optasm']), compile_and_run, [''])
test('T5920', only_ways(['normal','optasm']), compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment