teshsuite/smpi/mpich3-test/f77/init/checksizes.c

   1 #include "mpi.h"
   2 #include <stdio.h>
   3 int main( int argc, char **argv )
   4 {
   5   int fsizeof_aint   = ;
   6   int fsizeof_offset = ;
   7   int err = 0, rc = 0;
   8
   9   MPI_Init( &argc, &argv );
  10   if (sizeof(MPI_Aint) != fsizeof_aint) {
  11      printf( "Sizeof MPI_Aint is %d but Fortran thinks it is %d\n",
  12              (int)sizeof(MPI_Aint), fsizeof_aint );
  13      err++;
  14   }
  15   if (sizeof(MPI_Offset) != fsizeof_offset) {
  16      printf( "Sizeof MPI_Offset is %d but Fortran thinks it is %d\n",
  17              (int)sizeof(MPI_Offset), fsizeof_offset );
  18      err++;
  19   }
  20   MPI_Finalize( );
  21   if (err > 0) rc = 1;
  22   return rc;
  23 }