From 5ae5bd0ed44d9ba217556295e8c48e7eb5e4688c Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Mon, 29 Sep 2014 18:05:08 +0200 Subject: [PATCH] avoid issues in fortran codes --- src/smpi/smpi_f77.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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) { -- 2.20.1