teshsuite/smpi/mpich-test/profile/ptest.c

   1 #include <stdio.h>
   2 #include "mpi.h"
   3
   4 /* Header for testing procedures */
   5
   6 #if defined(NEEDS_STDLIB_PROTOTYPES)
   7 #include "protofix.h"
   8 #endif
   9
  10 /*
  11  * This tests for the existence of MPI_Pcontrol; nothing more.
  12  */
  13 int main( int argc, char **argv )
  14 {
  15     MPI_Init( &argc, &argv );
  16
  17     MPI_Pcontrol( 0 );
  18     printf( "Pcontrol test passed\n" );
  19     MPI_Finalize();
  20     return 0;
  21 }