summaryrefslogtreecommitdiff
path: root/testsuite/tests/asmcomp/unrolling_flambda.ml
blob: 59dfa2a98a0385f12e853b29a42db7ff18f4aa5f (plain)
1
2
3
4
5
6
7

let rec f x =
  if x > 0 then f (x - 1)
  else 0
[@@inline]

let _ = f 0