Add new entry in Release_Notes.

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

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/alltoallwf.f b/teshsuite/smpi/mpich3-test/f77/coll/alltoallwf.f
index 7ab0d60f57a6efdd189f42f8ac8121cddb53c923..03bcbf5d23fbb327fb3359f16836f1b04b1a3c3d 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/alltoallwf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/alltoallwf.f
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2003 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -14,7 +14,7 @@ C
       integer rcounts(maxSize), rdispls(maxSize), rtypes(maxSize)
       integer sbuf(maxSize), rbuf(maxSize)
       errs = 0
-      
+
       call mtest_init( ierr )
 
       call mpi_type_size( MPI_INTEGER, intsize, ierr )
@@ -32,7 +32,7 @@ C Get a comm
          call mpi_comm_size( comm, size, ierr )
       endif
       call mpi_comm_rank( comm, rank, ierr )
-      
+
       if (size .le. maxSize) then
 C Initialize the data.  Just use this as an all to all
          do i=1, size
@@ -46,15 +46,15 @@ C Initialize the data.  Just use this as an all to all
             rbuf(i) = -1
          enddo
          call mpi_alltoallw( sbuf, scounts, sdispls, stypes,
-     &        rbuf, rcounts, rdispls, rtypes, comm, ierr )     
+     &        rbuf, rcounts, rdispls, rtypes, comm, ierr )
 C
 C check rbuf(i) = data from the ith location of the ith send buf, or
-C       rbuf(i) = (i-1) * size + i   
+C       rbuf(i) = (i-1) * size + i
          do i=1, size
             ans = (i-1) * size + rank + 1
             if (rbuf(i) .ne. ans) then
                errs = errs + 1
-               print *, rank, ' rbuf(', i, ') = ', rbuf(i), 
+               print *, rank, ' rbuf(', i, ') = ', rbuf(i),
      &               ' expected ', ans
             endif
          enddo
@@ -64,4 +64,4 @@ C       rbuf(i) = (i-1) * size + i
       call mtest_finalize( errs )
       call mpi_finalize( ierr )
       end
-      
+