From acd6addc941cc88d13256fd6c8e4d15634ffeb34 Mon Sep 17 00:00:00 2001
From: Jeff Hammond <jeff.science@gmail.com>
Date: Wed, 22 Apr 2015 09:09:53 -0700
Subject: [PATCH 1/2] compress test cases with loop

---
 test/mpi/f90/f90types/createf90types.c | 51 +++++++++++++---------------------
 1 file changed, 19 insertions(+), 32 deletions(-)

diff --git a/test/mpi/f90/f90types/createf90types.c b/test/mpi/f90/f90types/createf90types.c
index 864e40f..83b14fd 100644
--- a/test/mpi/f90/f90types/createf90types.c
+++ b/test/mpi/f90/f90types/createf90types.c
@@ -11,6 +11,8 @@
 #include <string.h>
 #include "mpitest.h"
 
+static int cases[3][2] = {{3,10},{3,MPI_UNDEFINED},{MPI_UNDEFINED,10}};
+
 /*
 static char MTEST_Descrip[] = "Test the routines to access the Fortran 90 datatypes from C";
 */
@@ -146,42 +148,27 @@ int main( int argc, char *argv[] )
     MPI_Comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN );
 
     for (i=0; i<nLoop; i++) {
-	/* printf( "+" );fflush(stdout); */
-	/* This should be a valid type similar to MPI_REAL */
-	p = 3;
-	r = 10;
-	err = MPI_Type_create_f90_real( p, r, &newtype );
-	errs += checkType( "REAL", p, r, MPI_COMBINER_F90_REAL, err, newtype );
-	
-	r = MPI_UNDEFINED;
-	err = MPI_Type_create_f90_real( p, r, &newtype );
-	errs += checkType( "REAL", p, r, MPI_COMBINER_F90_REAL, err, newtype );
-	
-	p = MPI_UNDEFINED;
-	r = 10;
-	err = MPI_Type_create_f90_real( p, r, &newtype );
-	errs += checkType( "REAL", p, r, MPI_COMBINER_F90_REAL, err, newtype );
+        
+	/* These should be a valid type similar to MPI_REAL */
+        for (j=0; j<3; j++) {
+            p = cases[j][0];
+            r = cases[j][1];
+            err = MPI_Type_create_f90_real( p, r, &newtype );
+            errs += checkType( "REAL", p, r, MPI_COMBINER_F90_REAL, err, newtype );
+        }
 
-	/* This should be a valid type similar to MPI_COMPLEX */
-	p = 3;
-	r = 10;
-	err = MPI_Type_create_f90_complex( p, r, &newtype );
-	errs += checkType( "COMPLEX", p, r, MPI_COMBINER_F90_COMPLEX, 
-			   err, newtype );
-	
-	r = MPI_UNDEFINED;
-	err = MPI_Type_create_f90_complex( p, r, &newtype );
-	errs += checkType( "COMPLEX", p, r, MPI_COMBINER_F90_COMPLEX, 
-			   err, newtype );
-	
-	p = MPI_UNDEFINED;
-	r = 10;
-	err = MPI_Type_create_f90_complex( p, r, &newtype );
-	errs += checkType( "COMPLEX", p, r, MPI_COMBINER_F90_COMPLEX, 
-			   err, newtype );
+	/* These should be a valid type similar to MPI_COMPLEX */
+        for (j=0; j<3; j++) {
+            p = cases[j][0];
+            r = cases[j][1];
+            err = MPI_Type_create_f90_complex( p, r, &newtype );
+            errs += checkType( "COMPLEX", p, r, MPI_COMBINER_F90_COMPLEX, 
+                               err, newtype );
+        }
 	
 	/* This should be a valid type similar to MPI_INTEGER */
 	p = 3;
+	r = 10;
 	err = MPI_Type_create_f90_integer( p, &newtype );
 	errs += checkType( "INTEGER", p, r, MPI_COMBINER_F90_INTEGER, 
 			   err, newtype );
-- 
2.3.5