diff options
Diffstat (limited to 'testsuite/tests/arityanal/f3.hs')
| -rw-r--r-- | testsuite/tests/arityanal/f3.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/arityanal/f3.hs b/testsuite/tests/arityanal/f3.hs new file mode 100644 index 0000000000..f8210e6f0f --- /dev/null +++ b/testsuite/tests/arityanal/f3.hs @@ -0,0 +1,8 @@ +module F3 where
+
+fac :: Int -> Int
+fac x = if (x==0) then 1
+ else x*fac (x-1)
+
+f3 = let v = fac
+ in \y -> v y
\ No newline at end of file |