Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
remove useless (?) common block in fortran code as flang7 has problems compiling...
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / util / mtestf90.f90
index 56b76b7..0c1bf6d 100644 (file)
@@ -14,7 +14,6 @@
         logical flag
         logical dbgflag
         integer wrank
-        common /mtest/ dbgflag, wrank
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then
@@ -54,6 +53,9 @@
         save myindex
         data myindex /0/
 
+        if (.false.) then
+           qsmaller = qsmaller
+        endif
         comm = MPI_COMM_NULL
         if (myindex .eq. 0) then
            comm = MPI_COMM_WORLD