(* TEST
 * native-compiler
 ** setup-ocamlopt.byte-build-env
 *** ocamlopt.byte
   flags = "-save-ir-after scheduling"
   ocamlopt_byte_exit_status = "0"
 **** script
   script = "touch empty.ml"
 ***** ocamlopt.byte
   flags = "-S check_for_pack.cmir-linear -for-pack foo"
   module = "empty.ml"
   ocamlopt_byte_exit_status = "2"
 ****** check-ocamlopt.byte-output
*)

let foo f x =
  if x > 0 then x * 7 else f x

let bar x y = x + y