Silly workaround for coverage build with gcc-10.

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

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
index 66339f216aa40404f006be335374dbd44fd8bc43..12b51b22a8be5609aae78611b545795f857ac639 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/redscatf90.f90
@@ -4,21 +4,6 @@
 !  (C) 2011 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
 !
-      subroutine uop( cin, cout, count, datatype )
-      use mpi
-      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
-
-      do i=1, count
-         cout(i) = cin(i) + cout(i)
-      enddo
-      end
 !
 ! Test of reduce scatter.
 !
@@ -30,7 +15,7 @@
 
       program main
       use mpi
-      integer errs, ierr, toterr
+      integer errs, ierr
       integer maxsize
       parameter (maxsize=1024)
       integer recvbuf
@@ -86,3 +71,21 @@
       call mpi_finalize( ierr )
 
       end
+
+      subroutine uop( cin, cout, count, datatype )
+      use mpi
+      integer cin(*), cout(*)
+      integer count, datatype
+      integer i
+      
+      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)
+      enddo
+      end