remove warnings

[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / coll / split_typef90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
index 867fadf..9dbea6c 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/split_typef90.f90
@@ -7,8 +7,8 @@
       program main
       use mpi
       integer ierr, errs
-      integer i, ans, size, rank, color, comm, newcomm
-      integer maxSize, displ
+      integer i, size, rank, comm, newcomm
+      integer maxSize
       parameter (maxSize=128)
       integer scounts(maxSize), sdispls(maxSize), stypes(maxSize)
       integer rcounts(maxSize), rdispls(maxSize), rtypes(maxSize)