From 239db2df2d2884b52782ad2c7cf141179bf9c352 Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Sun, 27 Oct 2019 15:35:47 +0100 Subject: [PATCH] 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. --- teshsuite/smpi/mpich3-test/f77/util/mtestf.f | 1 + teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 | 1 + 2 files changed, 2 insertions(+) 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 -- 2.20.1