teshsuite/smpi/mpich3-test/info/infotest.c

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *  (C) 2001 by Argonne National Laboratory.
   4  *      See COPYRIGHT in top-level directory.
   5  */
   6 /* Simple info test */
   7
   8 #include "mpi.h"
   9 #include <stdio.h>
  10 #include <stdlib.h>
  11 #include "mpitestconf.h"
  12 #ifdef HAVE_STRING_H
  13 #include <string.h>
  14 #endif
  15
  16 int main( int argc, char *argv[] )
  17 {
  18     MPI_Info i1, i2;
  19     int errs = 0;
  20     char value[64];
  21     int flag;
  22
  23     MPI_Init( &argc, &argv );
  24
  25     MPI_Info_create( &i1 );
  26     MPI_Info_create( &i2 );
  27
  28     MPI_Info_set( i1, (char*)"key1", (char*)"value1" );
  29     MPI_Info_set( i2, (char*)"key2", (char*)"value2" );
  30
  31     MPI_Info_get( i1, (char*)"key2", 64, value, &flag );
  32     if (flag) {
  33         printf( "Found key2 in info1\n" );
  34         errs ++;
  35     }
  36     MPI_Info_get( i1, (char*)"key1", 64, value, &flag );
  37     if (!flag) {
  38         errs++;
  39         printf( "Did not find key1 in info1\n" );
  40     }
  41     else if (strcmp( value, "value1" )) {
  42         errs++;
  43         printf( "Found wrong value (%s), expected value1\n", value );
  44     }
  45
  46     MPI_Info_free( &i1 );
  47     MPI_Info_free( &i2 );
  48     if (errs) {
  49         printf( " Found %d errors\n", errs );
  50     }
  51     else {
  52         printf( " No Errors\n" );
  53     }
  54     MPI_Finalize( );
  55     return 0;
  56 }