hwloc: null check for cpuset
[mpich-dev.git] / examples / spawn_merge_child2.c
1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
2 /*
3  *  (C) 2001 by Argonne National Laboratory.
4  *      See COPYRIGHT in top-level directory.
5  */
6
7 #include <stdio.h>
8 #include "mpi.h"
9
10 int main( int argc, char *argv[] )
11 {
12     MPI_Comm intercomm;
13     char str[10];
14     int err, rank;
15
16     MPI_Init(&argc, &argv);
17
18     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
19
20     MPI_Comm_get_parent(&intercomm);
21
22     if (rank == 1){
23         err = MPI_Send("hi", 3, MPI_CHAR, 3, 0, intercomm);
24         
25         err = MPI_Recv(str, 4, MPI_CHAR, 3, 0, intercomm, MPI_STATUS_IGNORE);
26         printf("Child 2 received from parent (first child): %s\n", str);
27         fflush(stdout);
28     }
29
30     MPI_Finalize();
31     return 0;
32 }