Revert "remove useless (?) common block in fortran code as flang7 has…

… problems compiling it (see flang-compiler/flang#671 )" This reverts commit 3ea760a.
simgrid · Oct 27, 2019 · 239db2d · 239db2d
1 parent 3ea760a
commit 239db2d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -14,6 +14,7 @@ subroutine MTest_Init( ierr )
         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
@@ -14,6 +14,7 @@ subroutine MTest_Init( ierr )
         logical flag
         logical dbgflag
         integer wrank
+        common /mtest/ dbgflag, wrank
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then