From 4b7c40aed4e3b4654a3fb93eaa53e97e4b1c9e40 Mon Sep 17 00:00:00 2001 From: Martin Quinson Date: Sun, 14 Aug 2016 23:01:10 +0200 Subject: [PATCH] plug another memleak, in SMPI this time --- src/smpi/smpi_f77.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/smpi/smpi_f77.cpp b/src/smpi/smpi_f77.cpp index 248334e80c..76683814c6 100644 --- a/src/smpi/smpi_f77.cpp +++ b/src/smpi/smpi_f77.cpp @@ -600,9 +600,8 @@ void mpi_test_ (int * request, int *flag, MPI_Status * status, int* ierr){ } void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses, int* ierr){ - MPI_Request* reqs; int i; - reqs = xbt_new(MPI_Request, *count); + MPI_Request* reqs = xbt_new(MPI_Request, *count); for(i = 0; i < *count; i++) { reqs[i] = smpi_request_f2c(requests[i]); } @@ -613,6 +612,7 @@ void mpi_testall_ (int* count, int * requests, int *flag, MPI_Status * statuses requests[i]=MPI_FORTRAN_REQUEST_NULL; } } + xbt_free(reqs); } void mpi_get_processor_name_(char *name, int *resultlen, int* ierr){ -- 2.20.1