summaryrefslogtreecommitdiff
path: root/testsuite/tests/asmcomp/poll_attr_inserted.ml
blob: 0ea17755b795885f1680b76fd98ce4ab5971f123 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(* TEST
  * setup-ocamlopt.byte-build-env
  ** ocamlopt.byte
ocamlopt_byte_exit_status = "2"
  *** check-ocamlopt.byte-output

  * setup-ocamlopt.opt-build-env
  ** ocamlopt.opt
ocamlopt_opt_exit_status = "2"
  *** check-ocamlopt.opt-output
*)

let[@poll error] c x =
  for c = 0 to 2 do
    ignore(Sys.opaque_identity(42))
  done