From e0065efdd43480cd23c24fecc2abd91ae00528ac Mon Sep 17 00:00:00 2001
From: Jeff Hammond <jeff.science@gmail.com>
Date: Thu, 23 Apr 2015 10:45:42 -0700
Subject: [PATCH 3/4] test 128b real/complex as well - this is XFAIL for now

---
 test/mpi/f90/f90types/createf90types.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test/mpi/f90/f90types/createf90types.c b/test/mpi/f90/f90types/createf90types.c
index 33f4ef0..d692dbc 100644
--- a/test/mpi/f90/f90types/createf90types.c
+++ b/test/mpi/f90/f90types/createf90types.c
@@ -11,8 +11,9 @@
 #include <string.h>
 #include "mpitest.h"
 
-static int cases[6][2] = {{3,10},{3,MPI_UNDEFINED},{MPI_UNDEFINED,10},
-                          {7,30},{7,MPI_UNDEFINED},{MPI_UNDEFINED,30}};
+static int cases[9][2] = {{3,10},{3,MPI_UNDEFINED},{MPI_UNDEFINED,10},
+                          {7,30},{7,MPI_UNDEFINED},{MPI_UNDEFINED,30},
+                          {20,400},{20,MPI_UNDEFINED},{MPI_UNDEFINED,400}};
 
 /*
 static char MTEST_Descrip[] = "Test the routines to access the Fortran 90 datatypes from C";
@@ -151,7 +152,7 @@ int main( int argc, char *argv[] )
     for (i=0; i<nLoop; i++) {
         
 	/* These should be a valid type similar to MPI_REAL and MPI_REAL8 */
-        for (j=0; j<6; j++) {
+        for (j=0; j<9; j++) {
             p = cases[j][0];
             r = cases[j][1];
             err = MPI_Type_create_f90_real( p, r, &newtype );
@@ -159,7 +160,7 @@ int main( int argc, char *argv[] )
         }
 
 	/* These should be a valid type similar to MPI_COMPLEX and MPI_COMPLEX8 */
-        for (j=0; j<6; j++) {
+        for (j=0; j<9; j++) {
             p = cases[j][0];
             r = cases[j][1];
             err = MPI_Type_create_f90_complex( p, r, &newtype );
-- 
2.3.5