X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9deda161a84a426d0ea75ec4bd9b8cdc3a4b28fb..49e85177c669d793e84242983a1b1f430e47184e:/teshsuite/smpi/mpich3-test/f77/coll/exscanf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/exscanf.f b/teshsuite/smpi/mpich3-test/f77/coll/exscanf.f
index 5e6f64e63e..27de6b97df 100644
--- a/teshsuite/smpi/mpich3-test/f77/coll/exscanf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/exscanf.f
@@ -10,10 +10,12 @@ C
       integer count, datatype
       integer i
       
-!      if (datatype .ne. MPI_INTEGER) then
-!         write(6,*) 'Invalid datatype passed to user_op()'
-!         return
-!      endif
+      if (.false.) then
+         if (datatype .ne. MPI_INTEGER) then
+            write(6,*) 'Invalid datatype passed to user_op()'
+            return
+         endif
+      endif
 
       do i=1, count
          cout(i) = cin(i) + cout(i)