Really correct the group create logic this time. Really.

This commit was SVN r937.

src/group/mpi_group_init.c

@@ -58,6 +58,10 @@ lam_group_t *lam_group_allocate(int group_size)
     /* create new group group element */
     new_group=OBJ_NEW(lam_group_t);
     if( new_group ) {
+        if( LAM_ERROR == new_group->grp_f_to_c_index){
+            OBJ_RELEASE(new_group);
+            new_group=NULL;
+        } else {
             /* allocate array of (lam_proc_t *)'s, one for each
              *   process in the group */
             new_group->grp_proc_pointers=
@@ -74,10 +78,6 @@ lam_group_t *lam_group_allocate(int group_size)
             /* set the group size */
             new_group->grp_proc_count=group_size;
         }
-
-    if( LAM_ERROR == new_group->grp_f_to_c_index){
-        OBJ_RELEASE(new_group);
-        new_group=NULL;
     }
 
     /* return */