Here how we can use the req_flags to clean the temporary arrays of the

Fortran API.

Signed-off-by: George Bosilca <[email protected]>

Author: bosilca

ompi/mpi/fortran/mpif-h/ialltoallw_f.c

@@ -116,13 +116,10 @@ void ompi_ialltoallw_f(char *sendbuf, MPI_Fint *sendcounts,
                             c_recvtypes, c_comm, &c_request);
     if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
     if (MPI_SUCCESS == c_ierr) *request = PMPI_Request_c2f(c_request);
+    c_request->req_flags |= OMPI_REQ_NB_RELEASE_DATA;
 
     OMPI_ARRAY_FINT_2_INT_CLEANUP(sendcounts);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(sdispls);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(rdispls);
-    if (NULL != c_sendtypes) {
-        free(c_sendtypes);
-    }
-    free(c_recvtypes);
 }