diff --git a/ompi/mpi/f77/alltoallv_f.c b/ompi/mpi/f77/alltoallv_f.c
index 57c5fcf7ea..3e57e8edd3 100644
--- a/ompi/mpi/f77/alltoallv_f.c
+++ b/ompi/mpi/f77/alltoallv_f.c
@@ -98,5 +98,4 @@ void mpi_alltoallv_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls,
     OMPI_ARRAY_FINT_2_INT_CLEANUP(sdispls);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(rdispls);
-
 }
diff --git a/ompi/mpi/f77/alltoallw_f.c b/ompi/mpi/f77/alltoallw_f.c
index 505f2bc00a..a28b5f8868 100644
--- a/ompi/mpi/f77/alltoallw_f.c
+++ b/ompi/mpi/f77/alltoallw_f.c
@@ -106,4 +106,6 @@ void mpi_alltoallw_f(char *sendbuf, MPI_Fint *sendcounts,
     OMPI_ARRAY_FINT_2_INT_CLEANUP(sdispls);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
     OMPI_ARRAY_FINT_2_INT_CLEANUP(rdispls);
+    free(c_sendtypes);
+    free(c_recvtypes);
 }