blob: 2738fe455891b02a5a1b0bd44e1d878113630b47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(* TEST
{
setup-ocamlopt.byte-build-env;
ocamlopt_byte_exit_status = "2";
ocamlopt.byte;
check-ocamlopt.byte-output;
}{
setup-ocamlopt.opt-build-env;
ocamlopt_opt_exit_status = "2";
ocamlopt.opt;
check-ocamlopt.opt-output;
}
*)
let[@poll error] c x =
for c = 0 to 2 do
ignore(Sys.opaque_identity(42))
done
|
