Remove warnings about unused parameters.

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / coll / redscatf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f b/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
index b19b1e7..efd6c06 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/redscatf.f
@@ -9,11 +9,14 @@ C
       integer cin(*), cout(*)
       integer count, datatype
       integer i
-      
-!      if (datatype .ne. MPI_INTEGER) then
-!         write(6,*) 'Invalid datatype ',datatype,' passed to user_op()'
-!         return
-!      endif
+
+      if (.false.) then
+         if (datatype .ne. MPI_INTEGER) then
+            write(6,*) 'Invalid datatype ',datatype,
+     &           ' passed to user_op()'
+            return
+         endif
+      endif
 
       do i=1, count
          cout(i) = cin(i) + cout(i)