remove useless (?) common block in fortran code as flang7 has problems compiling...

[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 2c54d76f5c9b67240e814a97b0c5cb60f4086fe5..e3fd42f98d77033634b4f76f17d4994d9b5c2e0e 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -14,7 +14,6 @@ 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