blob: 1d8159785698aa63c7d56446de5ed480b2fc9a54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(* TEST
* native-compiler
** setup-ocamlopt.byte-build-env
*** ocamlopt.byte
flags = "-save-ir-after scheduling -S"
**** check-ocamlopt.byte-output
***** script
script = "sh ${test_source_directory}/save_ir_after_scheduling.sh"
*)
let foo f x =
if x > 0 then x * 7 else f x
let bar x y = x + y
|