First commit

BaseCode.c

+#include <stdio.h>
+#include <stdlib.h>
+#include <mpi.h>
+
+#define FIRST 0
+#define SECOND 1
+
+int main(int argc, char* argv[]) {
+    MPI_Init(&argc, &argv);
+    
+    MPI_Comm spawn, new_comm;
+    MPI_Comm_get_parent(&spawn);
+    if(spawn == MPI_COMM_NULL) {
+	int num_c = atoi(argv[1]);
+        MPI_Comm_spawn(argv[0], MPI_ARGV_NULL, num_c, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &spawn, MPI_ERRCODES_IGNORE);
+        MPI_Intercomm_merge(spawn, FIRST,  &new_comm);
+	
+    } else {
+        MPI_Intercomm_merge(spawn, SECOND, &new_comm);
+	MPI_Barrier(MPI_COMM_WORLD);
+    }
+
+    MPI_Finalize(); 
+}

README.md

+# MPICH_OFI_mpi_probe_bug
+
+This project is for storing a bug related to the usage of MPI Spawn + MPI Intercomm Merge.
+
+It can be found in the following URL: