From e7a5ad619cf4e2f0e38d9d02a338f67cf9a84c15 Mon Sep 17 00:00:00 2001
From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Fri, 15 Nov 2013 11:45:57 +0100
Subject: [PATCH] Initialize common variable.

---
 teshsuite/smpi/mpich3-test/f77/util/mtestf.f | 3 +++
 1 file changed, 3 insertions(+)

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
-- 
2.20.1