From: Augustin Degomme <adegomme@users.noreply.github.com>
Date: Sun, 27 Oct 2019 14:35:47 +0000 (+0100)
Subject: Revert "remove useless (?) common block in fortran code as flang7 has problems compil... 
X-Git-Tag: v3.25~479
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/239db2df2d2884b52782ad2c7cf141179bf9c352?hp=3ea760af6a8cb65c3a2250ecc65f47386b10f286

Revert "remove useless (?) common block in fortran code as flang7 has problems compiling it (see https://github.com/flang-compiler/flang/issues/671 )"

This reverts commit 3ea760af6a8cb65c3a2250ecc65f47386b10f286.
---

diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
index e3fd42f98d..2c54d76f5c 100644
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -14,6 +14,7 @@ C       about out-of-order statements
         logical flag
         logical dbgflag
         integer wrank
+        common /mtest/ dbgflag, wrank
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then
diff --git a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
index 0c1bf6d050..bb12b29e24 100644
--- a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
@@ -14,6 +14,7 @@
         logical flag
         logical dbgflag
         integer wrank
+        common /mtest/ dbgflag, wrank
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then