X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d0ffc37686edcc803601f76ab51fdfed5fc2f241..d5b29830df70e823202e384a7655e4371193ecd7:/teshsuite/smpi/mpich3-test/datatype/simple-size-extent.c diff --git a/teshsuite/smpi/mpich3-test/datatype/simple-size-extent.c b/teshsuite/smpi/mpich3-test/datatype/simple-size-extent.c index bde5592b5b..34330793da 100644 --- a/teshsuite/smpi/mpich3-test/datatype/simple-size-extent.c +++ b/teshsuite/smpi/mpich3-test/datatype/simple-size-extent.c @@ -23,125 +23,134 @@ int main(int argc, char **argv) MPI_Aint lb, ub, extent; MPI_Datatype type; - struct { float a; int b; } foo; + struct { + float a; + int b; + } foo; MPI_Init(&argc, &argv); 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); type = MPI_INT; mpi_err = MPI_Type_size(type, &size); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_size of MPI_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_size of MPI_INT failed.\n"); + } + errs++; } if (size != sizeof(int)) { - if (verbose) { - fprintf(stderr, "MPI_Type_size of MPI_INT incorrect size (%d); should be %d.\n", - size, (int) sizeof(int)); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_size of MPI_INT incorrect size (%d); should be %d.\n", + size, (int) sizeof(int)); + } + errs++; } mpi_err = MPI_Type_get_extent(type, &lb, &extent); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_get_extent of MPI_INT failed.\n"); + } + errs++; } if (extent != sizeof(int)) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_INT returned incorrect extent (%d); should be %d.\n", - (int) extent, (int) sizeof(int)); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_get_extent of MPI_INT returned incorrect extent (%d); should be %d.\n", + (int) extent, (int) sizeof(int)); + } + errs++; } if (lb != 0) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_INT returned incorrect lb (%d); should be 0.\n", - (int) lb); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_get_extent of MPI_INT returned incorrect lb (%d); should be 0.\n", + (int) lb); + } + errs++; } mpi_err = MPI_Type_ub(type, &ub); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_ub of MPI_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_ub of MPI_INT failed.\n"); + } + errs++; } if (ub != extent - lb) { - if (verbose) { - fprintf(stderr, "MPI_Type_ub of MPI_INT returned incorrect ub (%d); should be %d.\n", - (int) ub, (int) (extent - lb)); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_ub of MPI_INT returned incorrect ub (%d); should be %d.\n", + (int) ub, (int) (extent - lb)); + } + errs++; } type = MPI_FLOAT_INT; mpi_err = MPI_Type_size(type, &size); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_size of MPI_FLOAT_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_size of MPI_FLOAT_INT failed.\n"); + } + errs++; } if (size != sizeof(float) + sizeof(int)) { - if (verbose) { - fprintf(stderr, "MPI_Type_size of MPI_FLOAT_INT returned incorrect size (%d); should be %d.\n", - size, (int) (sizeof(float) + sizeof(int))); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_size of MPI_FLOAT_INT returned incorrect size (%d); should be %d.\n", + size, (int) (sizeof(float) + sizeof(int))); + } + errs++; } mpi_err = MPI_Type_get_extent(type, &lb, &extent); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_FLOAT_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_get_extent of MPI_FLOAT_INT failed.\n"); + } + errs++; } if (extent != sizeof(foo)) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_FLOAT_INT returned incorrect extent (%d); should be %d.\n", - (int) extent, (int) sizeof(foo)); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_get_extent of MPI_FLOAT_INT returned incorrect extent (%d); should be %d.\n", + (int) extent, (int) sizeof(foo)); + } + errs++; } if (lb != 0) { - if (verbose) { - fprintf(stderr, "MPI_Type_get_extent of MPI_FLOAT_INT returned incorrect lb (%d); should be 0.\n", - (int) lb); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_get_extent of MPI_FLOAT_INT returned incorrect lb (%d); should be 0.\n", + (int) lb); + } + errs++; } mpi_err = MPI_Type_ub(type, &ub); if (mpi_err != MPI_SUCCESS) { - if (verbose) { - fprintf(stderr, "MPI_Type_ub of MPI_FLOAT_INT failed.\n"); - } - errs++; + if (verbose) { + fprintf(stderr, "MPI_Type_ub of MPI_FLOAT_INT failed.\n"); + } + errs++; } if (ub != extent - lb) { - if (verbose) { - fprintf(stderr, "MPI_Type_ub of MPI_FLOAT_INT returned incorrect ub (%d); should be %d.\n", - (int) ub, (int) (extent - lb)); - } - errs++; + if (verbose) { + fprintf(stderr, + "MPI_Type_ub of MPI_FLOAT_INT returned incorrect ub (%d); should be %d.\n", + (int) ub, (int) (extent - lb)); + } + errs++; } /* print message and exit */ if (errs) { - fprintf(stderr, "Found %d errors\n", errs); + fprintf(stderr, "Found %d errors\n", errs); } else { - printf(" No Errors\n"); + printf(" No Errors\n"); } MPI_Finalize(); return 0; @@ -150,18 +159,18 @@ int main(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) - verbose = 1; + verbose = 1; return 0; }