fixed bug checking index

This commit was SVN r850.

src/mpi/group/mpi_group_init.c

@@ -149,7 +149,7 @@ int lam_group_init(void)
         return LAM_ERROR;
     };
     /* make sure that MPI_GROUP_NULL is in location in the table */
-    if( LAM_GROUP_EMPTY_FORTRAN == ret_val ){
+    if( LAM_GROUP_EMPTY_FORTRAN != ret_val ){
         return LAM_ERROR;
     };
     lam_mpi_group_empty.grp_f_to_c_index=ret_val;