diff --git a/ompi/mpi/f77/cart_rank_f.c b/ompi/mpi/f77/cart_rank_f.c
index 863c3d8d6b..9bf34e34ae 100644
--- a/ompi/mpi/f77/cart_rank_f.c
+++ b/ompi/mpi/f77/cart_rank_f.c
@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -76,4 +77,5 @@ void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank,
     if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
         OMPI_SINGLE_INT_2_FINT(rank);
     }
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(coords);
 }
diff --git a/ompi/mpi/f77/gatherv_f.c b/ompi/mpi/f77/gatherv_f.c
index 5fb2b1b03e..937f7da96e 100644
--- a/ompi/mpi/f77/gatherv_f.c
+++ b/ompi/mpi/f77/gatherv_f.c
@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -88,4 +89,6 @@ void mpi_gatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype,
 					c_recvtype, 
 					OMPI_FINT_2_INT(*root),
 					c_comm));
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(displs);
 }
diff --git a/ompi/mpi/f77/group_excl_f.c b/ompi/mpi/f77/group_excl_f.c
index 1ba032e4e5..bd6bd61f26 100644
--- a/ompi/mpi/f77/group_excl_f.c
+++ b/ompi/mpi/f77/group_excl_f.c
@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -78,4 +79,5 @@ void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n,
   if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
       *newgroup = c_newgroup->grp_f_to_c_index;
   }
+  OMPI_ARRAY_FINT_2_INT_CLEANUP(ranks);
 }
diff --git a/ompi/mpi/f77/group_incl_f.c b/ompi/mpi/f77/group_incl_f.c
index 0370ba7763..3aeb60b0f3 100644
--- a/ompi/mpi/f77/group_incl_f.c
+++ b/ompi/mpi/f77/group_incl_f.c
@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -77,4 +78,5 @@ void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *n
     if (MPI_SUCCESS == OMPI_FINT_2_INT(*ierr)) {
         *newgroup = c_newgroup->grp_f_to_c_index;
     }
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(ranks);
 }
diff --git a/ompi/mpi/f77/reduce_scatter_f.c b/ompi/mpi/f77/reduce_scatter_f.c
index becd9c2cf5..4468bc241c 100644
--- a/ompi/mpi/f77/reduce_scatter_f.c
+++ b/ompi/mpi/f77/reduce_scatter_f.c
@@ -9,6 +9,7 @@
  *                         University of Stuttgart.  All rights reserved.
  * Copyright (c) 2004-2005 The Regents of the University of California.
  *                         All rights reserved.
+ * Copyright (c) 2011 Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  * 
  * Additional copyrights may follow
@@ -82,4 +83,5 @@ void mpi_reduce_scatter_f(char *sendbuf, char *recvbuf,
     *ierr = OMPI_INT_2_FINT(MPI_Reduce_scatter(sendbuf, recvbuf,
 				       OMPI_ARRAY_NAME_CONVERT(recvcounts),
 				       c_type, c_op, c_comm));
+    OMPI_ARRAY_FINT_2_INT_CLEANUP(recvcounts);
 }