teshsuite/smpi/mpich3-test/comm/ctxalloc.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *
   4  *  (C) 2003 by Argonne National Laboratory.
   5  *      See COPYRIGHT in top-level directory.
   6  */
   7 #include "mpi.h"
   8 #include <stdio.h>
   9 #include "mpitest.h"
  10
  11 /*
  12  * This program tests the allocation (and deallocation) of contexts.
  13  *
  14  */
  15 int main(int argc, char **argv)
  16 {
  17     int errs = 0;
  18     int i, j, err;
  19     MPI_Comm newcomm1, newcomm2[200];
  20
  21     MTest_Init(&argc, &argv);
  22
  23     /* Get a separate communicator to duplicate */
  24     MPI_Comm_dup(MPI_COMM_WORLD, &newcomm1);
  25
  26     MPI_Errhandler_set(newcomm1, MPI_ERRORS_RETURN);
  27     /* Allocate many communicators in batches, then free them */
  28     for (i = 0; i < 100; i++) {
  29         for (j = 0; j < 200; j++) {
  30             err = MPI_Comm_dup(newcomm1, &newcomm2[j]);
  31             if (err) {
  32                 errs++;
  33                 if (errs < 10) {
  34                     fprintf(stderr, "Failed to duplicate communicator for (%d,%d)\n", i, j);
  35                     MTestPrintError(err);
  36                 }
  37             }
  38         }
  39         for (j = 0; j < 200; j++) {
  40             err = MPI_Comm_free(&newcomm2[j]);
  41             if (err) {
  42                 errs++;
  43                 if (errs < 10) {
  44                     fprintf(stderr, "Failed to free %d,%d\n", i, j);
  45                     MTestPrintError(err);
  46                 }
  47             }
  48         }
  49     }
  50     err = MPI_Comm_free(&newcomm1);
  51     if (err) {
  52         errs++;
  53         fprintf(stderr, "Failed to free newcomm1\n");
  54         MTestPrintError(err);
  55     }
  56
  57     MTest_Finalize(errs);
  58
  59     MPI_Finalize();
  60
  61     return 0;
  62 }