X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4137195804cd6cf88d6077d42a80cd6b41e09814..81200bdffde340c4830331a8b534537b24fd2850:/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
index 1ed0bf75f5..192cb02b6b 100644
--- a/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/vw_inplacef90.f90
@@ -14,7 +14,7 @@
        integer rbuf(MAX_SIZE)
        integer rdispls(MAX_SIZE), rcounts(MAX_SIZE), rtypes(MAX_SIZE)
        integer ierr, errs
-       integer comm, root
+       integer comm
        integer rank, size
        integer iexpected, igot
        integer i, j