int main(int argc, char *argv[])
{
int p, r;
int errs = 0;
int err;
int i, j, nLoop = 1;
MPI_Datatype newtype;
MTest_Init(0, 0);
if (argc > 1) {
nLoop = atoi(argv[1]);
}
/* Set the handler to errors return, since according to the
* standard, it is invalid to provide p and/or r that are unsupported */
MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
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++) {
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);
}
/* These should be a valid type similar to MPI_COMPLEX and MPI_COMPLEX8 */
for (j = 0; j < 6; 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);
}
MTest_Finalize(errs);
MPI_Finalize();
return 0;
}
FORT_DLL_SPEC void FORT_CALL mpi_type_create_f90_integer_ ( MPI_Fint *v1, MPI_Fint *v2, MPI_Fint *ierr ){
*ierr = MPI_Type_create_f90_integer( (int)*v1, (MPI_Datatype *)(v2) );
}
