X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/4f5b09bcaba0b306f2980655d3090cb79a326514..81200bdffde340c4830331a8b534537b24fd2850:/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90 b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
index ea6f4138d3..8e447927a3 100644
--- a/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/util/mtestf90.f90
@@ -87,6 +87,7 @@ end module
         endif
         myindex(rank+1) = mod( myindex(rank+1), 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL
+        qsmaller=.true.
         end
 !
         subroutine MTestFreeComm( comm )