teshsuite/smpi/mpich3-test/attr/baseattr2.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *
   4  *  (C) 2001 by Argonne National Laboratory.
   5  *      See COPYRIGHT in top-level directory.
   6  */
   7 #include <stdio.h>
   8 #include "mpi.h"
   9 #include "mpitest.h"
  10
  11 void MissingKeyval( int rc, const char keyname[] );
  12
  13 int main( int argc, char **argv)
  14 {
  15     int    errs = 0;
  16     int    rc;
  17     void *v;
  18     int  flag;
  19     int  vval;
  20     int  rank, size;
  21
  22     MTest_Init( &argc, &argv );
  23     MPI_Comm_size( MPI_COMM_WORLD, &size );
  24     MPI_Comm_rank( MPI_COMM_WORLD, &rank );
  25
  26     /* Set errors return so that we can provide better information
  27        should a routine reject one of the attribute values */
  28     MPI_Errhandler_set( MPI_COMM_WORLD, MPI_ERRORS_RETURN );
  29
  30     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_TAG_UB, &v, &flag );
  31     if (rc) {
  32         MissingKeyval( rc, "MPI_TAG_UB" );
  33         errs++;
  34     }
  35     else {
  36         if (!flag) {
  37         errs++;
  38         fprintf( stderr, "Could not get TAG_UB\n" );
  39         }
  40         else {
  41             vval = *(int*)v;
  42             if (vval < 32767) {
  43                 errs++;
  44                 fprintf( stderr, "Got too-small value (%d) for TAG_UB\n", vval );
  45             }
  46         }
  47     }
  48
  49     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_HOST, &v, &flag );
  50     if (rc) {
  51         MissingKeyval( rc, "MPI_HOST" );
  52         errs++;
  53     }
  54     else {
  55         if (!flag) {
  56             errs++;
  57             fprintf( stderr, "Could not get HOST\n" );
  58         }
  59         else {
  60             vval = *(int*)v;
  61             if ((vval < 0 || vval >= size) && vval != MPI_PROC_NULL) {
  62                 errs++;
  63                 fprintf( stderr, "Got invalid value %d for HOST\n", vval );
  64             }
  65         }
  66     }
  67
  68     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_IO, &v, &flag );
  69     if (rc) {
  70         MissingKeyval( rc, "MPI_IO" );
  71         errs++;
  72     }
  73     else {
  74         if (!flag) {
  75             errs++;
  76             fprintf( stderr, "Could not get IO\n" );
  77         }
  78         else {
  79             vval = *(int*)v;
  80             if ((vval < 0 || vval >= size) && vval != MPI_ANY_SOURCE &&
  81                 vval != MPI_PROC_NULL) {
  82                 errs++;
  83                 fprintf( stderr, "Got invalid value %d for IO\n", vval );
  84             }
  85         }
  86     }
  87
  88     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_WTIME_IS_GLOBAL, &v, &flag );
  89     if (rc) {
  90         MissingKeyval( rc, "MPI_WTIME_IS_GLOBAL" );
  91         errs++;
  92     }
  93     else {
  94         if (flag) {
  95             /* Wtime need not be set */
  96             vval = *(int*)v;
  97             if (vval < 0 || vval > 1) {
  98                 errs++;
  99                 fprintf( stderr, "Invalid value for WTIME_IS_GLOBAL (got %d)\n",
 100                          vval );
 101             }
 102         }
 103     }
 104
 105     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_APPNUM, &v, &flag );
 106     if (rc) {
 107         MissingKeyval( rc, "MPI_APPNUM" );
 108         errs++;
 109     }
 110     else {
 111         /* appnum need not be set */
 112         if (flag) {
 113             vval = *(int *)v;
 114             if (vval < 0) {
 115                 errs++;
 116                 fprintf( stderr, "MPI_APPNUM is defined as %d but must be nonnegative\n", vval );
 117             }
 118         }
 119     }
 120
 121     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_UNIVERSE_SIZE, &v, &flag );
 122     if (rc) {
 123         MissingKeyval( rc, "MPI_UNIVERSE_SIZE" );
 124         errs++;
 125     }
 126     else {
 127         /* MPI_UNIVERSE_SIZE need not be set */
 128         if (flag) {
 129             vval = *(int *)v;
 130             if (vval < size) {
 131                 errs++;
 132                 fprintf( stderr, "MPI_UNIVERSE_SIZE = %d, less than comm world (%d)\n", vval, size );
 133             }
 134         }
 135     }
 136
 137     rc = MPI_Attr_get( MPI_COMM_WORLD, MPI_LASTUSEDCODE, &v, &flag );
 138     if (rc) {
 139         MissingKeyval( rc, "MPI_LASTUSEDCODE" );
 140         errs++;
 141     }
 142     else {
 143         /* Last used code must be defined and >= MPI_ERR_LASTCODE */
 144         if (flag) {
 145             vval = *(int*)v;
 146             if (vval < MPI_ERR_LASTCODE) {
 147                 errs++;
 148                 fprintf( stderr, "MPI_LASTUSEDCODE points to an integer (%d) smaller than MPI_ERR_LASTCODE (%d)\n", vval, MPI_ERR_LASTCODE );
 149             }
 150         }
 151         else {
 152             errs++;
 153             fprintf( stderr, "MPI_LASTUSECODE is not defined\n" );
 154         }
 155     }
 156
 157     MPI_Errhandler_set( MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL );
 158
 159     MTest_Finalize( errs );
 160     MPI_Finalize( );
 161
 162     return 0;
 163 }
 164
 165 void MissingKeyval( int errcode, const char keyname[] )
 166 {
 167     int errclass, slen;
 168     char string[MPI_MAX_ERROR_STRING];
 169
 170     MPI_Error_class( errcode, &errclass );
 171     MPI_Error_string( errcode, string, &slen );
 172     printf( "For key %s: Error class %d (%s)\n", keyname, errclass, string );
 173     fflush( stdout );
 174 }