teshsuite/smpi/mpich3-test/topo/dims4.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *  (C) 2011 by Argonne National Laboratory.
   4  *      See COPYRIGHT in top-level directory.
   5  */
   6 #include "mpi.h"
   7 #include <stdio.h>
   8
   9 int main(int argc, char **argv)
  10 {
  11     int nproc = (1000 * 1000 * 1000);
  12     int ret[3] = { 0, 0, 0 };
  13     int errs = 0, i, rank;
  14
  15     MPI_Init(&argc, &argv);
  16     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  17
  18     MPI_Dims_create(nproc, 3, ret);
  19
  20     for (i = 0; i < 3; i++)
  21         if (ret[i] != 1000)
  22             errs++;
  23
  24     if (!errs && rank == 0)
  25         printf(" No Errors\n");
  26
  27     MPI_Finalize();
  28     return 0;
  29 }