X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/7a21edf0ad00eee185ec492e9bbf094901fa25fe..e7a5ad619cf4e2f0e38d9d02a338f67cf9a84c15:/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 9bef6e158d..f1a137ca7b 100644
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -15,6 +15,8 @@ C       about out-of-order statements
         logical dbgflag
         integer wrank
         common /mtest/ dbgflag, wrank
+        integer myindex
+        common /grr/ myindex
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then
@@ -22,6 +24,7 @@ C       about out-of-order statements
         endif
 
         dbgflag = .false.
+        myindex = 0
         call MPI_Comm_rank( MPI_COMM_WORLD, wrank, ierr )
         end
 C