blob: ea7fabc5304206195e1c016ed74cb7ec0fdfcfda (
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
* hassysthreads
include systhreads
** 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
|