Merge branch 'master' of ssh://scm.gforge.inria.fr/gitroot/simgrid/simgrid

[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / coll / exscanf90.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
index 1f1ec517e75daae76a7cb0ce2fa369f62a4f26bd..59cb7e447bb14400a2dd2d2179f1e1df7034d31c 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
@@ -10,10 +10,12 @@
       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)