teshsuite/smpi/mpich3-test/pt2pt/waittestnull.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *  (C) 2005 by Argonne National Laboratory.
   4  *      See COPYRIGHT in top-level directory.
   5  */
   6 #include <stdio.h>
   7 #include "mpi.h"
   8 #include "mpitest.h"
   9
  10 /*
  11  * This program checks that the various MPI_Test and MPI_Wait routines
  12  * allow both null requests and in the multiple completion cases, empty
  13  * lists of requests.
  14  */
  15
  16 int main(int argc, char **argv)
  17 {
  18     int errs = 0;
  19     MPI_Status status, *status_array = 0;
  20     int count = 0, flag, idx, rc, errlen, *indices=0, outcnt;
  21     MPI_Request *reqs = 0;
  22     char errmsg[MPI_MAX_ERROR_STRING];
  23
  24     MTest_Init(&argc, &argv);
  25
  26     MPI_Comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN );
  27
  28     rc = MPI_Testall( count, reqs, &flag, status_array );
  29     if (rc != MPI_SUCCESS) {
  30         MPI_Error_string( rc, errmsg, &errlen );
  31         printf( "MPI_Testall returned failure: %s\n", errmsg );
  32         errs ++;
  33     }
  34     else if (!flag) {
  35         printf( "MPI_Testall( 0, ... ) did not return a true flag\n") ;
  36         errs++;
  37     }
  38
  39     rc = MPI_Waitall( count, reqs, status_array );
  40     if (rc != MPI_SUCCESS) {
  41         MPI_Error_string( rc, errmsg, &errlen );
  42         printf( "MPI_Waitall returned failure: %s\n", errmsg );
  43         errs ++;
  44     }
  45
  46     rc = MPI_Testany( count, reqs, &idx, &flag, &status );
  47     if (rc != MPI_SUCCESS) {
  48         MPI_Error_string( rc, errmsg, &errlen );
  49         printf( "MPI_Testany returned failure: %s\n", errmsg );
  50         errs ++;
  51     }
  52     else if (!flag) {
  53         printf( "MPI_Testany( 0, ... ) did not return a true flag\n") ;
  54         errs++;
  55     }
  56
  57     rc = MPI_Waitany( count, reqs, &idx, &status );
  58     if (rc != MPI_SUCCESS) {
  59         MPI_Error_string( rc, errmsg, &errlen );
  60         printf( "MPI_Waitany returned failure: %s\n", errmsg );
  61         errs ++;
  62     }
  63
  64     rc = MPI_Testsome( count, reqs, &outcnt, indices, status_array );
  65     if (rc != MPI_SUCCESS) {
  66         MPI_Error_string( rc, errmsg, &errlen );
  67         printf( "MPI_Testsome returned failure: %s\n", errmsg );
  68         errs ++;
  69     }
  70
  71     rc = MPI_Waitsome( count, reqs, &outcnt, indices, status_array );
  72     if (rc != MPI_SUCCESS) {
  73         MPI_Error_string( rc, errmsg, &errlen );
  74         printf( "MPI_Waitsome returned failure: %s\n", errmsg );
  75         errs ++;
  76     }
  77
  78     MTest_Finalize( errs );
  79     MPI_Finalize();
  80     return 0;
  81 }