From 79cd61a2811607c02b5470132f4241fcf91bfe6d Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Thu, 18 Jul 2019 14:34:23 +0200 Subject: [PATCH] testsome and waitsome in fortran need to fortranize indices. --- src/smpi/bindings/smpi_f77_request.cpp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/smpi/bindings/smpi_f77_request.cpp b/src/smpi/bindings/smpi_f77_request.cpp index ec705b2196..485f062e81 100644 --- a/src/smpi/bindings/smpi_f77_request.cpp +++ b/src/smpi/bindings/smpi_f77_request.cpp @@ -215,6 +215,7 @@ void mpi_waitsome_ (int* incount, int* requests, int *outcount, int *indices, MP simgrid::smpi::Request::free_f(requests[indices[i]]); requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL; } + indices[i]++; } xbt_free(reqs); } @@ -279,6 +280,7 @@ void mpi_testsome_ (int* incount, int* requests, int* outcount, int* indices, M simgrid::smpi::Request::free_f(requests[indices[i]]); requests[indices[i]]=MPI_FORTRAN_REQUEST_NULL; } + indices[i]++; } xbt_free(reqs); } -- 2.20.1