Add (some) mpich3 f77 tests

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / init / checksizes.c

diff --git a/teshsuite/smpi/mpich3-test/f77/init/checksizes.c b/teshsuite/smpi/mpich3-test/f77/init/checksizes.c
new file mode 100644 (file)
index 0000000..e91dc8d
--- /dev/null
+++ b/teshsuite/smpi/mpich3-test/f77/init/checksizes.c
@@ -0,0 +1,23 @@
+#include "mpi.h"
+#include <stdio.h>
+int main( int argc, char **argv )
+{
+  int fsizeof_aint   = ;
+  int fsizeof_offset = ;
+  int err = 0, rc = 0;
+
+  MPI_Init( &argc, &argv );
+  if (sizeof(MPI_Aint) != fsizeof_aint) {
+     printf( "Sizeof MPI_Aint is %d but Fortran thinks it is %d\n",
+             (int)sizeof(MPI_Aint), fsizeof_aint );
+     err++;
+  }
+  if (sizeof(MPI_Offset) != fsizeof_offset) {
+     printf( "Sizeof MPI_Offset is %d but Fortran thinks it is %d\n",
+             (int)sizeof(MPI_Offset), fsizeof_offset );
+     err++;
+  }
+  MPI_Finalize( );
+  if (err > 0) rc = 1;
+  return rc;
+}