X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ee52f84fe512219acf534c4d4654c3df56659e91..0b83205608b7fc3e935b970509a08e381ad1dffe:/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
index b146f4f4b9..bf23687563 100644
--- a/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/gaddressf90.f90
@@ -9,9 +9,9 @@
       use mpi
       integer max_asizev
       parameter (max_asizev=2)
-      integer (kind=MPI_ADDRESS_KIND) aint, aintv(max_asizev)
+      integer (kind=MPI_ADDRESS_KIND) aintv(max_asizev), gap
 
-      integer iarray(200), gap, intsize
+      integer iarray(200), intsize
       integer ierr, errs
 
       errs = 0