blob: 83cd7cf814de9619145142bd27b3dd3bdf360dc5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* TEST
unset DOES_NOT_EXIST;
include systhreads;
hassysthreads;
{
bytecode;
}{
native;
}
*)
(* MPR#7638 repro case *)
let crashme v =
match Sys.getenv v with
| exception Not_found -> print_string "OK\n"
| s -> print_string "Surprising but OK\n"
let _ =
let th = Thread.create crashme "DOES_NOT_EXIST" in
Thread.join th
|