}
char* tvalue = xbt_new(char,valuelen+1);
strncpy(tvalue, value, valuelen);
-
tvalue[valuelen]='\0';
+
*ierr = MPI_Info_set( smpi_info_f2c(*info), tkey, tvalue);
xbt_free(tkey);
}
void mpi_info_free_(int* info, int* ierr){
MPI_Info tmp = smpi_info_f2c(*info);
+ const char* key;
+ char* val;
+ xbt_dict_cursor_t cursor;
+ xbt_dict_foreach(tmp->info_dict,cursor,key,val) {
+ xbt_free(val);
+ }
*ierr = MPI_Info_free(&tmp);
if(*ierr == MPI_SUCCESS) {
free_info(*info);