A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' into fix/execute_benched
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
datatype
/
lbub.c
diff --git
a/teshsuite/smpi/mpich3-test/datatype/lbub.c
b/teshsuite/smpi/mpich3-test/datatype/lbub.c
index
366dd6c
..
b1c4824
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/datatype/lbub.c
+++ b/
teshsuite/smpi/mpich3-test/datatype/lbub.c
@@
-12,7
+12,7
@@
#include <string.h>
#endif
#include <string.h>
#endif
-/*
+/*
The default behavior of the test routines should be to briefly indicate
the cause of any errors - in this test, that means that verbose needs
to be set. Verbose should turn on output that is independent of error
The default behavior of the test routines should be to briefly indicate
the cause of any errors - in this test, that means that verbose needs
to be set. Verbose should turn on output that is independent of error
@@
-39,55
+39,65
@@
int main(int argc, char **argv)
{
int err, errs = 0;
{
int err, errs = 0;
- MTest_Init(
&argc, &argv
);
+ MTest_Init(
&argc, &argv
);
parse_args(argc, argv);
/* To improve reporting of problems about operations, we
parse_args(argc, argv);
/* To improve reporting of problems about operations, we
-
change the error handler to errors return */
- MPI_Comm_set_errhandler(
MPI_COMM_WORLD, MPI_ERRORS_RETURN
);
+
*
change the error handler to errors return */
+ MPI_Comm_set_errhandler(
MPI_COMM_WORLD, MPI_ERRORS_RETURN
);
/* perform some tests */
err = int_with_lb_ub_test();
/* perform some tests */
err = int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in simple lb/ub test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in simple lb/ub test\n", err);
errs += err;
err = contig_of_int_with_lb_ub_test();
errs += err;
err = contig_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in contig test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in contig test\n", err);
errs += err;
err = contig_negextent_of_int_with_lb_ub_test();
errs += err;
err = contig_negextent_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in negextent contig test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in negextent contig test\n", err);
errs += err;
err = vector_of_int_with_lb_ub_test();
errs += err;
err = vector_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in simple vector test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in simple vector test\n", err);
errs += err;
err = vector_blklen_of_int_with_lb_ub_test();
errs += err;
err = vector_blklen_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in vector blklen test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in vector blklen test\n", err);
errs += err;
err = vector_blklen_stride_of_int_with_lb_ub_test();
errs += err;
err = vector_blklen_stride_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in strided vector test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in strided vector test\n", err);
errs += err;
err = vector_blklen_negstride_of_int_with_lb_ub_test();
errs += err;
err = vector_blklen_negstride_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in negstrided vector test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in negstrided vector test\n", err);
errs += err;
err = int_with_negextent_test();
errs += err;
err = int_with_negextent_test();
- if (err && verbose) fprintf(stderr, "found %d errors in negextent lb/ub test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in negextent lb/ub test\n", err);
errs += err;
err = vector_blklen_stride_negextent_of_int_with_lb_ub_test();
errs += err;
err = vector_blklen_stride_negextent_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in strided negextent vector test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in strided negextent vector test\n", err);
errs += err;
err = vector_blklen_negstride_negextent_of_int_with_lb_ub_test();
errs += err;
err = vector_blklen_negstride_negextent_of_int_with_lb_ub_test();
- if (err && verbose) fprintf(stderr, "found %d errors in negstrided negextent vector test\n", err);
+ if (err && verbose)
+ fprintf(stderr, "found %d errors in negstrided negextent vector test\n", err);
errs += err;
errs += err;
- MTest_Finalize(
errs
);
+ MTest_Finalize(
errs
);
MPI_Finalize();
return 0;
}
MPI_Finalize();
return 0;
}
@@
-95,19
+105,19
@@
int main(int argc, char **argv)
int parse_args(int argc, char **argv)
{
/*
int parse_args(int argc, char **argv)
{
/*
- int ret;
-
- while ((ret = getopt(argc, argv, "v")) >= 0)
- {
-
switch (ret) {
-
case 'v':
-
verbose = 1;
-
break;
-
}
- }
- */
+
*
int ret;
+ *
+
*
while ((ret = getopt(argc, argv, "v")) >= 0)
+
*
{
+
*
switch (ret) {
+
*
case 'v':
+
*
verbose = 1;
+
*
break;
+
*
}
+
*
}
+
*/
if (argc > 1 && strcmp(argv[1], "-v") == 0)
if (argc > 1 && strcmp(argv[1], "-v") == 0)
- verbose = 1;
+
verbose = 1;
return 0;
}
return 0;
}
@@
-123,95
+133,115
@@
int int_with_lb_ub_test(void)
err = MPI_Type_struct(3, blocks, disps, types, &eviltype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 4) {
}
if (val != 4) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 4);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 4);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 9) {
}
if (aval != 9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %ld; should be %d\n", (long) aval, 9);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %ld; should be %d\n", (long) aval, 9);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -3) {
}
if (lb != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -3);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -3);
}
if (extent != 9) {
}
if (extent != 9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 9);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 9);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 6) {
}
if (aval != 6) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 6);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 6);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
}
if (aval != 4) {
}
if (aval != 4) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 4);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 4);
}
}
-
+
MPI_Type_free(&eviltype);
return errs;
MPI_Type_free(&eviltype);
return errs;
@@
-229,117
+259,143
@@
int contig_of_int_with_lb_ub_test(void)
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
- typemapstring = (char
*)
"{ (LB,-3),4*(BYTE,0),(UB,6) }";
+ typemapstring = (char
*)
"{ (LB,-3),4*(BYTE,0),(UB,6) }";
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
}
- typemapstring=(char*)"{ (LB,-3),4*(BYTE,0),(UB,6),(LB,6),4*(BYTE,9),(UB,15),(LB,15),4*(BYTE,18),(UB,24)}";
+ typemapstring = (char *)
+ "{ (LB,-3),4*(BYTE,0),(UB,6),(LB,6),4*(BYTE,9),(UB,15),(LB,15),4*(BYTE,18),(UB,24)}";
err = MPI_Type_contiguous(3, inttype, &eviltype);
if (err != MPI_SUCCESS) {
err = MPI_Type_contiguous(3, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_contiguous of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_contiguous of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 12) {
}
if (val != 12) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n",
-
val, 12);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " size of type = %d; should be %d\n",
val, 12);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 27) {
}
if (aval != 27) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 27);
- if (verbose) fprintf( stderr, " for type %s\n", typemapstring );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 27);
+ if (verbose)
+ fprintf(stderr, " for type %s\n", typemapstring);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d from Type_lb; should be %d in %s\n", (int) aval, -3, typemapstring );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d from Type_lb; should be %d in %s\n", (int) aval, -3,
+ typemapstring);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -3) {
}
if (lb != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d from Type_get_extent; should be %d in %s\n",
- (int) aval, -3, typemapstring );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d from Type_get_extent; should be %d in %s\n",
+ (int) aval, -3, typemapstring);
}
if (extent != 27) {
}
if (extent != 27) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d from Type_get_extent; should be %d in %s\n",
- (int) extent, 27, typemapstring);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d from Type_get_extent; should be %d in %s\n",
+ (int) extent, 27, typemapstring);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 24) {
}
if (aval != 24) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d in Type_ub; should be %din %s\n", (int) aval, 24, typemapstring);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d in Type_ub; should be %din %s\n", (int) aval, 24,
+ typemapstring);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d in %s\n", (int) true_lb, 0, typemapstring);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d in %s\n", (int) true_lb, 0,
+ typemapstring);
}
if (aval != 22) {
}
if (aval != 22) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d in %s\n", (int) aval, 22, typemapstring);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d in %s\n", (int) aval, 22,
+ typemapstring);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-356,116
+412,136
@@
int contig_negextent_of_int_with_lb_ub_test(void)
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
- typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
+ typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* No point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* No point in continuing */
+ return errs;
}
}
- typemapstring = (char*)"{ (LB,6),4*(BYTE,0),(UB,-3),(LB,-3),4*(BYTE,-9),(UB,-12),(LB,-12),4*(BYTE,-18),(UB,-21) }";
+ typemapstring = (char *)
+ "{ (LB,6),4*(BYTE,0),(UB,-3),(LB,-3),4*(BYTE,-9),(UB,-12),(LB,-12),4*(BYTE,-18),(UB,-21) }";
err = MPI_Type_contiguous(3, inttype, &eviltype);
if (err != MPI_SUCCESS) {
err = MPI_Type_contiguous(3, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_contiguous of %s failed.\n",
- typemapstring);
- if (verbose) MTestPrintError( err );
- /* No point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_contiguous of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* No point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size of %s failed.\n",
- typemapstring);
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 12) {
}
if (val != 12) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 12);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 12);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 9) {
}
if (aval != 9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 9);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 9);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -12) {
}
if (aval != -12) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -12);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -12);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -12) {
}
if (lb != -12) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -12);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -12);
}
if (extent != 9) {
}
if (extent != 9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 9);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 9);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != -18) {
}
if (true_lb != -18) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -18);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -18);
}
if (aval != 22) {
}
if (aval != 22) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 22);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 22);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
-
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
+
return errs;
}
return errs;
}
@@
-482,108
+558,130
@@
int vector_of_int_with_lb_ub_test(void)
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 1, 1, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 1, 1, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 12) {
}
if (val != 12) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 12);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 12);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 27) {
}
if (aval != 27) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 27);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 27);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -3) {
}
if (lb != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -3);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -3);
}
if (extent != 27) {
}
if (extent != 27) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 27);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 27);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 24) {
}
if (aval != 24) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 24);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 24);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
}
if (aval != 22) {
}
if (aval != 22) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 22);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 22);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-604,109
+702,132
@@
int vector_blklen_of_int_with_lb_ub_test(void)
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 4, 1, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 4, 1, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 48) {
}
if (val != 48) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 54) {
}
if (aval != 54) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 54);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 54);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
+ if (verbose)
+ MTestPrintError(err);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -3) {
}
if (lb != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -3);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -3);
}
if (extent != 54) {
}
if (extent != 54) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 54);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 54);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 51) {
}
if (aval != 51) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 51);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 51);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
}
if (aval != 49) {
}
if (aval != 49) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 49);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 49);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-723,112
+844,133
@@
int vector_blklen_stride_of_int_with_lb_ub_test(void)
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
MPI_Datatype inttype, eviltype;
/* build same type as in int_with_lb_ub_test() */
- typemapstring = (char
*)
"{ (LB,-3),4*(BYTE,0),(UB,6) }";
+ typemapstring = (char
*)
"{ (LB,-3),4*(BYTE,0),(UB,6) }";
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* No point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* No point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 4, 5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 4, 5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 48) {
}
if (val != 48) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 126) {
}
if (aval != 126) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 126);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 126);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -3) {
}
if (lb != -3) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -3);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -3);
}
if (extent != 126) {
}
if (extent != 126) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 126);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 126);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 123) {
}
if (aval != 123) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 123);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 123);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
}
if (aval != 121) {
}
if (aval != 121) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-846,108
+988,130
@@
int vector_blklen_negstride_of_int_with_lb_ub_test(void)
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 4, -5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 4, -5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 48) {
}
if (val != 48) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 126) {
}
if (aval != 126) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 126);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 126);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -93) {
}
if (aval != -93) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -93);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -93);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -93) {
}
if (lb != -93) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -93);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -93);
}
if (extent != 126) {
}
if (extent != 126) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 126);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 126);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 33) {
}
if (aval != 33) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 33);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, 33);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != -90) {
}
if (true_lb != -90) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -90);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -90);
}
if (aval != 121) {
}
if (aval != 121) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-959,105
+1123,124
@@
int int_with_negextent_test(void)
int blocks[3] = { 1, 4, 1 };
MPI_Aint disps[3] = { 6, 0, -3 };
MPI_Datatype types[3] = { MPI_LB, MPI_BYTE, MPI_UB };
int blocks[3] = { 1, 4, 1 };
MPI_Aint disps[3] = { 6, 0, -3 };
MPI_Datatype types[3] = { MPI_LB, MPI_BYTE, MPI_UB };
- char *typemapstring =0;
+ char *typemapstring =
0;
MPI_Datatype eviltype;
MPI_Datatype eviltype;
- typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
+ typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
err = MPI_Type_struct(3, blocks, disps, types, &eviltype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* No point in contiuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* No point in contiuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 4) {
}
if (val != 4) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 4);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 4);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -9) {
}
if (aval != -9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, -9);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, -9);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 6) {
}
if (aval != 6) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, 6);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, 6);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != 6) {
}
if (lb != 6) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, 6);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, 6);
}
if (extent != -9) {
}
if (extent != -9) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, -9);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, -9);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != 0) {
}
if (true_lb != 0) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, 0);
}
if (aval != 4) {
}
if (aval != 4) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 4);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 4);
}
}
-
+
MPI_Type_free(&eviltype);
return errs;
MPI_Type_free(&eviltype);
return errs;
@@
-1074,112
+1257,133
@@
int vector_blklen_stride_negextent_of_int_with_lb_ub_test(void)
char *typemapstring = 0;
/* build same type as in int_with_lb_ub_test() */
char *typemapstring = 0;
/* build same type as in int_with_lb_ub_test() */
- typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
+ typemapstring = (char
*)
"{ (LB,6),4*(BYTE,0),(UB,-3) }";
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct of %s failed.\n",
- typemapstring );
- if (verbose) MTestPrintError( err );
- /* No point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct of %s failed.\n", typemapstring);
+ if (verbose)
+ MTestPrintError(err);
+ /* No point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 4, 5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 4, 5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 48) {
}
if (val != 48) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 108) {
}
if (aval != 108) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 108);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %d; should be %d\n", (int) aval, 108);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -111) {
}
if (aval != -111) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -111);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %d; should be %d\n", (int) aval, -111);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -111) {
}
if (lb != -111) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %d; should be %d\n",
-
(int) aval, -111);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %d; should be %d\n",
(int) aval, -111);
}
if (extent != 108) {
}
if (extent != 108) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %d; should be %d\n",
-
(int) extent, 108);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %d; should be %d\n",
(int) extent, 108);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -3) {
}
if (aval != -3) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %d; should be %d\n", (int) aval, -3);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != -117) {
}
if (true_lb != -117) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -117);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %d; should be %d\n", (int) true_lb, -117);
}
if (aval != 121) {
}
if (aval != 121) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %d; should be %d\n", (int) aval, 121);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
@@
-1197,109
+1401,131
@@
int vector_blklen_negstride_negextent_of_int_with_lb_ub_test(void)
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
/* build same type as in int_with_lb_ub_test() */
err = MPI_Type_struct(3, blocks, disps, types, &inttype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_struct failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_struct failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_vector(3, 4, -5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_vector(3, 4, -5, inttype, &eviltype);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_vector failed.\n");
- if (verbose) MTestPrintError( err );
- /* no point in continuing */
- return errs;
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_vector failed.\n");
+ if (verbose)
+ MTestPrintError(err);
+ /* no point in continuing */
+ return errs;
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_size(eviltype, &val);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_size failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_size failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (val != 48) {
}
if (val != 48) {
- errs++;
- if (verbose) fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " size of type = %d; should be %d\n", val, 48);
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_extent(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 108) {
}
if (aval != 108) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %ld; should be %d\n", (long) aval, 108);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " extent of type = %ld; should be %d\n", (long) aval, 108);
}
}
-
+
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
err = MPI_Type_lb(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_lb failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_lb failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != -21) {
}
if (aval != -21) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %ld; should be %d\n", (long) aval, -21);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " lb of type = %ld; should be %d\n", (long) aval, -21);
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_extent(eviltype, &lb, &extent);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (lb != -21) {
}
if (lb != -21) {
- errs++;
- if (verbose) fprintf(stderr, " lb of type = %ld; should be %d\n",
-
(long) aval, -21);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " lb of type = %ld; should be %d\n",
(long) aval, -21);
}
if (extent != 108) {
}
if (extent != 108) {
- errs++;
- if (verbose) fprintf(stderr, " extent of type = %ld; should be %d\n",
-
(long) extent, 108);
+
errs++;
+ if (verbose)
+
fprintf(stderr, " extent of type = %ld; should be %d\n",
(long) extent, 108);
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_ub(eviltype, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_ub failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_ub failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (aval != 87) {
}
if (aval != 87) {
- errs++;
- if (verbose) fprintf(stderr, " ub of type = %ld; should be %d\n", (long) aval, 87);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " ub of type = %ld; should be %d\n", (long) aval, 87);
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
}
err = MPI_Type_get_true_extent(eviltype, &true_lb, &aval);
if (err != MPI_SUCCESS) {
- errs++;
- if (verbose) fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
- if (verbose) MTestPrintError( err );
+ errs++;
+ if (verbose)
+ fprintf(stderr, " MPI_Type_get_true_extent failed.\n");
+ if (verbose)
+ MTestPrintError(err);
}
if (true_lb != -27) {
}
if (true_lb != -27) {
- errs++;
- if (verbose) fprintf(stderr, " true_lb of type = %ld; should be %d\n", (long) true_lb, -27);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true_lb of type = %ld; should be %d\n", (long) true_lb, -27);
}
if (aval != 121) {
}
if (aval != 121) {
- errs++;
- if (verbose) fprintf(stderr, " true extent of type = %ld; should be %d\n", (long) aval, 121);
+ errs++;
+ if (verbose)
+ fprintf(stderr, " true extent of type = %ld; should be %d\n", (long) aval, 121);
}
}
- MPI_Type_free(
&inttype
);
- MPI_Type_free(
&eviltype
);
+ MPI_Type_free(
&inttype
);
+ MPI_Type_free(
&eviltype
);
return errs;
}
return errs;
}
