X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f4b7b8e6ce0fd35fc2ada5f5c06d212bcd2199c8..3ee2e44a3edbbc748f872f517d1cd9082dce0baf:/teshsuite/smpi/mpich3-test/f77/util/mtestf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
index ba7092ef17..2c54d76f5c 100644
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -53,8 +53,12 @@ C A simple get intracomm for now
         integer comm, min_size, size, rank
         logical qsmaller
         integer myindex
-        common /grr/ myindex 
+        save myindex
+        data myindex /0/
 
+        if (.false.) then
+           qsmaller = qsmaller
+        endif
         comm = MPI_COMM_NULL
         if (myindex .eq. 0) then
            comm = MPI_COMM_WORLD