Merge branch 'smpi-topo'

[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 81edc25f711b13561047575a2469033cbef267e3..2c54d76f5c9b67240e814a97b0c5cb60f4086fe5 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
+++ b/teshsuite/smpi/mpich3-test/f77/util/mtestf.f
@@ -56,6 +56,9 @@ C A simple get intracomm for now
         save myindex
         data myindex /0/
 
+        if (.false.) then
+           qsmaller = qsmaller
+        endif
         comm = MPI_COMM_NULL
         if (myindex .eq. 0) then
            comm = MPI_COMM_WORLD