remove warnings

[simgrid.git] / 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 b146f4f..bf23687 100644 (file)
--- 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