diff options
Diffstat (limited to 'testsuite/tests/arityanal/should_compile/Arity11.hs')
-rw-r--r-- | testsuite/tests/arityanal/should_compile/Arity11.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/arityanal/should_compile/Arity11.hs b/testsuite/tests/arityanal/should_compile/Arity11.hs new file mode 100644 index 0000000000..9fd32c2fb5 --- /dev/null +++ b/testsuite/tests/arityanal/should_compile/Arity11.hs @@ -0,0 +1,10 @@ +module F11 where + +fib 0 = 1 +fib 1 = 1 +fib n = fib (n-1) + fib (n-2) + +f11f = \z -> let x = fib 1000 + in \y -> x+y + +f11 = (f11f 5 6, f11f 7 8) |