Revert "Silly workaround for coverage build with gcc-10."

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

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f b/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
index aaaee12..6037308 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
@@ -6,6 +6,24 @@ C
 C
 C Test Fortran MPI_Reduce_local with MPI_OP_SUM and with user-defined operation.
 C
+      subroutine user_op( invec, outvec, count, datatype )
+      implicit none
+      include 'mpif.h'
+      integer invec(*), outvec(*)
+      integer count, datatype
+      integer ii
+
+      if (datatype .ne. MPI_INTEGER) then
+         write(6,*) 'Invalid datatype passed to user_op()'
+         return
+      endif
+      
+      do ii=1, count
+         outvec(ii) = invec(ii) * 2 + outvec(ii)
+      enddo
+
+      end
+
       program main
       implicit none
       include 'mpif.h'
@@ -77,21 +95,3 @@ C        Check if the result is correct
       call mpi_finalize(ierr)
 
       end
-
-      subroutine user_op( invec, outvec, count, datatype )
-      implicit none
-      include 'mpif.h'
-      integer invec(*), outvec(*)
-      integer count, datatype
-      integer ii
-
-      if (datatype .ne. MPI_INTEGER) then
-         write(6,*) 'Invalid datatype passed to user_op()'
-         return
-      endif
-      
-      do ii=1, count
-         outvec(ii) = invec(ii) * 2 + outvec(ii)
-      enddo
-
-      end