// xfail-win32
use std;
import task;
import comm;
import uint;

fn die(&&_i: ()) {
    fail;
}

fn iloop(&&_i: ()) {
    task::unsupervise();
    task::spawn((), die);
    let p = comm::port::<()>();
    let c = comm::chan(p);
    while true {
        // Sending and receiving here because these actions yield,
        // at which point our child can kill us
        comm::send(c, ());
        comm::recv(p);
    }
}

fn main() {
    uint::range(0u, 16u) {|_i|
        task::spawn((), iloop);
    }
}