20 lines
437 B
OCaml
20 lines
437 B
OCaml
|
(* 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
|