X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/b629ee624eb0a454c25f16a7a76cecc5274a58d7..5ae5bd0ed44d9ba217556295e8c48e7eb5e4688c:/src/smpi/smpi_f77.c

diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c
index 24b82383c0..a6f528f94a 100644
--- a/src/smpi/smpi_f77.c
+++ b/src/smpi/smpi_f77.c
@@ -111,7 +111,7 @@ static void free_group(int group) {
 
 
 int smpi_request_c2f(MPI_Request req) {
-  static int request_id = INT_MIN;
+  static int request_id = 0;
   char key[KEY_SIZE];
   xbt_dict_set(request_lookup, get_key_id(key, request_id), req, NULL);
   request_id++;
@@ -1214,9 +1214,6 @@ void mpi_type_contiguous_ (int* count, int* old_type, int*  newtype, int* ierr)
 void mpi_cancel_ (int* request, int* ierr) {
   MPI_Request tmp=smpi_request_f2c(*request);
  *ierr = MPI_Cancel(&tmp);
- if(*ierr == MPI_SUCCESS) {
-   free_request(*request);
- }
 }
 
 void mpi_buffer_attach_ (void* buffer, int* size, int* ierr) {