X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/bf6ed47fe662e71174b6c034e66fbe176c390eb9..d9d0310b37e3c0e23fc7b71ba76ff1fe2d640e36:/teshsuite/smpi/mpich-test/coll/allredf.f

diff --git a/teshsuite/smpi/mpich-test/coll/allredf.f b/teshsuite/smpi/mpich-test/coll/allredf.f
index e6874ccc9b..5ea0b270d1 100644
--- a/teshsuite/smpi/mpich-test/coll/allredf.f
+++ b/teshsuite/smpi/mpich-test/coll/allredf.f
@@ -751,29 +751,29 @@ C Test Maxloc
         endif
 
 
-        fnderr = .false.
-        do 23060 i=1, count
-           dblein(2*i-1) = (rank + i)
-           dblein(2*i)   = rank
-           dblesol(2*i-1) = (size - 1 + i)
-           dblesol(2*i) = (size-1)
-           dbleout(2*i-1) = 0
-           dbleout(2*i)   = 0
-23060   continue
-                call MPI_Allreduce( dblein, dbleout, count, 
-     *      MPI_2DOUBLE_PRECISION, MPI_MAXLOC, comm, ierr )
-        do 23061 i=1, count
-        if (dbleout(2*i-1) .ne. dblesol(2*i-1) .or.
-     *      dbleout(2*i) .ne. dblesol(2*i)) then
-            errcnt = errcnt + 1
-            fnderr = .true. 
-        endif
-23061   continue
-        if (fnderr) then
-           print *,
-     *     'Error for type MPI_2DOUBLE_PRECISION and op MPI_MAXLOC'
-
-        endif
+!        fnderr = .false.
+!        do 23060 i=1, count
+!           dblein(2*i-1) = (rank + i)
+!           dblein(2*i)   = rank
+!           dblesol(2*i-1) = (size - 1 + i)
+!           dblesol(2*i) = (size-1)
+!           dbleout(2*i-1) = 0
+!           dbleout(2*i)   = 0
+!23060   continue
+!                call MPI_Allreduce( dblein, dbleout, count, 
+!     *      MPI_2DOUBLE_PRECISION, MPI_MAXLOC, comm, ierr )
+!        do 23061 i=1, count
+!        if (dbleout(2*i-1) .ne. dblesol(2*i-1) .or.
+!     *      dbleout(2*i) .ne. dblesol(2*i)) then
+!            errcnt = errcnt + 1
+!            fnderr = .true. 
+!        endif
+!23061   continue
+!        if (fnderr) then
+!           print *,
+!     *     'Error for type MPI_2DOUBLE_PRECISION and op MPI_MAXLOC'
+
+!        endif
 
 
         if (errcnt .gt. 0) then
@@ -832,28 +832,28 @@ C Test minloc
         endif
 
 
-        fnderr = .false.
-        do 23066 i=1, count
-           dblein(2*i-1) = (rank + i)
-           dblein(2*i)   = rank
-           dblesol(2*i-1) = i
-           dblesol(2*i) = 0
-           dbleout(2*i-1) = 0
-           dbleout(2*i)   = 0
-23066   continue
-                call MPI_Allreduce( dblein, dbleout, count, 
-     *      MPI_2DOUBLE_PRECISION, MPI_MINLOC, comm, ierr )
-        do 23067 i=1, count
-        if (dbleout(2*i-1) .ne. dblesol(2*i-1) .or.
-     *      dbleout(2*i) .ne. dblesol(2*i)) then
-            errcnt = errcnt + 1
-            fnderr = .true. 
-        endif
-23067   continue
-        if (fnderr) then
-           print *,
-     *      'Error for type MPI_2DOUBLE_PRECISION and op MPI_MINLOC'
-        endif
+!        fnderr = .false.
+!        do 23066 i=1, count
+!           dblein(2*i-1) = (rank + i)
+!           dblein(2*i)   = rank
+!           dblesol(2*i-1) = i
+!           dblesol(2*i) = 0
+!           dbleout(2*i-1) = 0
+!           dbleout(2*i)   = 0
+!23066   continue
+!                call MPI_Allreduce( dblein, dbleout, count, 
+!     *      MPI_2DOUBLE_PRECISION, MPI_MINLOC, comm, ierr )
+!        do 23067 i=1, count
+!        if (dbleout(2*i-1) .ne. dblesol(2*i-1) .or.
+!     *      dbleout(2*i) .ne. dblesol(2*i)) then
+!            errcnt = errcnt + 1
+!            fnderr = .true. 
+!        endif
+!23067   continue
+!        if (fnderr) then
+!           print *,
+!     *      'Error for type MPI_2DOUBLE_PRECISION and op MPI_MINLOC'
+!        endif
 
 
         if (errcnt .gt. 0) then