[mpich2-commits] r4216 - mpich2/trunk/test/mpi/perf

gropp at mcs.anl.gov gropp at mcs.anl.gov
Sat Mar 28 16:33:35 CDT 2009


Author: gropp
Date: 2009-03-28 16:33:35 -0500 (Sat, 28 Mar 2009)
New Revision: 4216

Modified:
   mpich2/trunk/test/mpi/perf/dtpack.c
Log:
Ensure dtpack frees created datatypes

Modified: mpich2/trunk/test/mpi/perf/dtpack.c
===================================================================
--- mpich2/trunk/test/mpi/perf/dtpack.c	2009-03-27 23:36:32 UTC (rev 4215)
+++ mpich2/trunk/test/mpi/perf/dtpack.c	2009-03-28 21:33:35 UTC (rev 4216)
@@ -131,9 +131,10 @@
 		*avgTimeMPI = 0;
 		if (verbose)
 			printf("Too much noise; discarding measurement\n");
-		return 0;
 	}
-	*avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	else {
+	    *avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	}
 
 	MPI_Type_free( &vectype );
 
@@ -203,9 +204,10 @@
 		*avgTimeMPI = 0;
 		if (verbose)
 			printf("Too much noise; discarding measurement\n");
-		return 0;
 	}
-	*avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	else {
+	    *avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	}
 
 	MPI_Type_free( &vectype );
 
@@ -276,10 +278,10 @@
 		*avgTimeMPI = 0;
 		if (verbose)
 			printf("Too much noise; discarding measurement\n");
-		return 0;
 	}
-	*avgTimeMPI = mean(t, NTRIALS) / N_REPS;
-
+	else {
+	    *avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	}
 	MPI_Type_free( &vectype );
 
 	return 0;
@@ -357,10 +359,10 @@
 		*avgTimeMPI = 0;
 		if (verbose)
 			printf("Too much noise; discarding measurement\n");
-		return 0;
 	}
-	*avgTimeMPI = mean(t, NTRIALS) / N_REPS;
-
+	else {
+	    *avgTimeMPI = mean(t, NTRIALS) / N_REPS;
+	}
 	MPI_Type_free( &indextype );
 
 	return 0;



More information about the mpich2-commits mailing list