X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/067f764922a3f1cbf3f7b3cce63a9206b47f5516..d345b5dad90a1ec9829011b9188185aaf4d3240a:/teshsuite/smpi/mpich3-test/f77/coll/uallreducef.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/uallreducef.f b/teshsuite/smpi/mpich3-test/f77/coll/uallreducef.f
index 566d294b92..6a74bf01a3 100644
--- a/teshsuite/smpi/mpich3-test/f77/coll/uallreducef.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/uallreducef.f
@@ -6,23 +6,6 @@ C
 C
 C Test user-defined operations.  This tests a simple commutative operation
 C
-      subroutine uop( cin, cout, count, datatype )
-      implicit none
-      include 'mpif.h'
-      integer cin(*), cout(*)
-      integer count, datatype
-      integer i
-      
-C      if (datatype .ne. MPI_INTEGER) then
-C         print *, 'Invalid datatype (',datatype,') passed to user_op()'
-C         return
-C      endif
-
-      do i=1, count
-         cout(i) = cin(i) + cout(i)
-      enddo
-      end
-
       program main
       implicit none
       include 'mpif.h'
@@ -61,3 +44,20 @@ C         Check that all results are correct
       call mtest_finalize(errs)
       call mpi_finalize(ierr)
       end
+
+      subroutine uop( cin, cout, count, datatype )
+      implicit none
+      include 'mpif.h'
+      integer cin(*), cout(*)
+      integer count, datatype
+      integer i
+      
+C      if (datatype .ne. MPI_INTEGER) then
+C         print *, 'Invalid datatype (',datatype,') passed to user_op()'
+C         return
+C      endif
+
+      do i=1, count
+         cout(i) = cin(i) + cout(i)
+      enddo
+      end