(* TEST
   flags += "-g"
   exit_status = "2"
   * bytecode
     ocamlrunparam += ",b=0"
     reference = "${test_source_directory}/pr2195-nolocs.byte.reference"
   * bytecode
     ocamlrunparam += ",b=1"
     reference = "${test_source_directory}/pr2195-nolocs.byte.reference"
   * bytecode
     ocamlrunparam += ",b=2"
     reference = "${test_source_directory}/pr2195-locs.byte.reference"
   * native
     reference = "${test_source_directory}/pr2195.opt.reference"
     compare_programs = "false"
*)

let () =
  Printexc.record_backtrace true;
  let c = open_out "foo" in
  close_out c;
  try
    while true do
      open_in "foo" |> ignore
    done
  with Sys_error _ ->
    (* The message is platform-specific, so convert the exception to Exit *)
    let bt = Printexc.get_raw_backtrace () in
    Printexc.raise_with_backtrace Exit bt