MPI_COMM_WORLD should be the first communicator who get created even before MPI_COMM_SELF and MPI_COMM_NULL.

This commit was SVN r8132.

ompi/runtime/ompi_mpi_init.c

@@ -432,18 +432,18 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
 
     /* Init coll for the comms */
 
-    if (OMPI_SUCCESS != 
-        (ret = mca_coll_base_comm_select(MPI_COMM_SELF, NULL))) {
-        error = "mca_coll_base_comm_select(MPI_COMM_SELF) failed";
-        goto error;
-    }
-
     if (OMPI_SUCCESS !=
         (ret = mca_coll_base_comm_select(MPI_COMM_WORLD, NULL))) {
         error = "mca_coll_base_comm_select(MPI_COMM_WORLD) failed";
         goto error;
     }
 
+    if (OMPI_SUCCESS != 
+        (ret = mca_coll_base_comm_select(MPI_COMM_SELF, NULL))) {
+        error = "mca_coll_base_comm_select(MPI_COMM_SELF) failed";
+        goto error;
+    }
+
 #if OMPI_ENABLE_PROGRESS_THREADS && 0
     /* BWB - XXX - FIXME - is this actually correct? */
     /* setup I/O forwarding */