blob: 1a0583a62f22a8c356dabbdfbe5928b8e8faff5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(* TEST
flags = "-g"
ocamlrunparam += ",b=1"
ocamlopt_flags = "-inline 0"
exit_status = "2"
*)
let why : unit -> unit = fun () -> raise Exit [@@inline never]
let f () =
why @@ ();
ignore (3 + 2);
() [@@inline never]
let () =
f ()
|