X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/be2e1849322a818224270fabdda2c7f591df7d60..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f77/rma/addsize.h

diff --git a/teshsuite/smpi/mpich3-test/f77/rma/addsize.h b/teshsuite/smpi/mpich3-test/f77/rma/addsize.h
index 6b8e09342c..ed9d7e7e2c 100644
--- a/teshsuite/smpi/mpich3-test/f77/rma/addsize.h
+++ b/teshsuite/smpi/mpich3-test/f77/rma/addsize.h
@@ -1,6 +1,11 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2003 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
 C
-      integer asize
+C     SimGrid comment :
+C     This file holds a value which should have the same size as an MPI_Aint
+C     that can hold any pointer. In f90 it's a integer (kind=MPI_ADDRESS_KIND)
+C     Original mpich testsuite uses autconf to configure the right size to use
+C     Integer is not right on some systems, we set it to integer*8 by default
+      integer*8 asize