} else if (newcomm == NULL) {
retval = MPI_ERR_ARG;
} else {
- *newcomm = smpi_comm_dup(comm);
- retval = MPI_SUCCESS;
+ retval = smpi_comm_dup(comm, newcomm);
}
return retval;
}
//FIXME : not ideal and leaky, but should not be called too much
int* res = xbt_new(int, 1);
*res=keyval;
- attr_value=(void*)res;
+ *(int**)attr_value=res;
return MPI_SUCCESS;
} else
return smpi_attr_get(comm, keyval, attr_value, flag);