[mpich2-commits] r3987 - mpich2/trunk/test/mpi/coll

[goodell at mcs.anl.gov]

Author: goodell
Date: 2009-03-09 15:43:38 -0500 (Mon, 09 Mar 2009)
New Revision: 3987

Modified:
   mpich2/trunk/test/mpi/coll/allgatherv4.c
Log:
Fix handle warnings in new allgatherv4 test.

No reviewer.

Modified: mpich2/trunk/test/mpi/coll/allgatherv4.c
===================================================================
--- mpich2/trunk/test/mpi/coll/allgatherv4.c	2009-03-09 19:37:19 UTC (rev 3986)
+++ mpich2/trunk/test/mpi/coll/allgatherv4.c	2009-03-09 20:43:38 UTC (rev 3987)
@@ -84,6 +84,7 @@
     MPI_Comm_split(MPI_COMM_WORLD, (comm_rank == comm_size - 1) ? 0 : 1, 0, &comm);
     if (comm_rank < comm_size - 1)
         comm_tests(comm);
+    MPI_Comm_free(&comm);
 
     /* Randomized communicator tests */
     if (!comm_rank) {
@@ -93,6 +94,7 @@
     }
     MPI_Comm_split(MPI_COMM_WORLD, 0, rand(), &comm);
     comm_tests(comm);
+    MPI_Comm_free(&comm);
 
     free(sbuf);
     free(rbuf);