summaryrefslogtreecommitdiff
path: root/testsuite/tests/asmcomp/unrolling_flambda.ml
blob: dcfcb0330334b2b9aec6e03e956c22443f19a104 (plain)
1
2
3
4
5
6
7
8
9
10
11
(* TEST
   * flambda
   ** native
*)

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

let _ = f 0