testsuite/tests/tool-toplevel/pr9701.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(* TEST
 ocaml_script_as_argument = "true";
 ocaml_exit_status = "2";
 setup-ocaml-build-env;
 ocaml;
 check-ocaml-output;
*)

#1 "pr9701.ml"
Printexc.record_backtrace true;;

let f () = failwith "test";;
let proc () = f ();;
let () = proc ();;