(* TEST
 include systhreads;
 hassysthreads;
 not-bsd;
 libunix;
 {
   bytecode;
 }{
   native;
 }
*)

(* POSIX threads and fork() *)

let alloc_string () = ignore(String.make 2048 '0')

let compute_thread () =
  Thread.create begin fun () ->
    alloc_string ()
  end ()

let fork () =
  match Unix.fork() with
  | 0 ->
      alloc_string ();
      print_string "passed";
      print_newline ();
      Thread.delay 1.0;
      exit 0
  | pid ->
      Thread.delay 4.0;
      exit 0

let main () =
  ignore(compute_thread ());
  ignore(compute_thread ());
  ignore(compute_thread ());
  fork ()

let _ = main()