Commit 48ac948e authored by ian@well-typed.com's avatar ian@well-typed.com

Add a test for #7850

parent ca3a648b
{-# LANGUAGE BangPatterns #-}
main :: IO ()
main = print $ ack 4 1
ack :: Int -> Int -> Int
ack 0 !n = n+1
ack m 0 = ack (m-1) 1
ack m n = ack (m-1) $ ack m (n-1)
......@@ -284,3 +284,9 @@ test('T7954',
compile_and_run,
['-O'])
test('T7850',
[stats_num_field('peak_megabytes_allocated', (4, 1)),
only_ways(['normal'])],
compile_and_run,
['-O'])
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