Initialize common variable.

[simgrid.git] / 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 9bef6e1..f1a137c 100644 (file)
--- 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
         logical dbgflag
         integer wrank
         common /mtest/ dbgflag, wrank

+        integer myindex
+        common /grr/ myindex

 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then


@@ -22,6 +24,7 @@ C       about out-of-order statements
         endif
 
         dbgflag = .false.
         endif
 
         dbgflag = .false.

+        myindex = 0

         call MPI_Comm_rank( MPI_COMM_WORLD, wrank, ierr )
         end
 C
         call MPI_Comm_rank( MPI_COMM_WORLD, wrank, ierr )
         end
 C