Kill trailing whitespaces in teshsuite/smpi/{isp,mpich3-test}.

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

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/alltoallvf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/alltoallvf90.f90
index 0c535e6..cf9c505 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/coll/alltoallvf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/alltoallvf90.f90
@@ -1,5 +1,5 @@
 ! This file created from test/mpi/f77/coll/alltoallvf.f with f77tof90
-! -*- Mode: Fortran; -*- 
+! -*- Mode: Fortran; -*-
 !
 !  (C) 2011 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
@@ -15,7 +15,7 @@
       integer sbuf(maxSize), rbuf(maxSize)
 
       errs = 0
-      
+
       call mtest_init( ierr )
 
 ! Get a comm
@@ -31,7 +31,7 @@
          call mpi_comm_size( comm, size, ierr )
       endif
       call mpi_comm_rank( comm, rank, ierr )
-!      
+!
       if (size .le. maxSize) then
 ! Initialize the data.  Just use this as an all to all
 ! Use the same test as alltoallwf.c , except displacements are in units of
@@ -47,10 +47,10 @@
             rbuf(i) = -1
          enddo
          call mpi_alltoallv( sbuf, scounts, sdispls, stypes, &
-      &        rbuf, rcounts, rdispls, rtypes, comm, ierr )     
+      &        rbuf, rcounts, rdispls, rtypes, comm, ierr )
 !
 ! check rbuf(i) = data from the ith location of the ith send buf, or
-!       rbuf(i) = (i-1) * size + i   
+!       rbuf(i) = (i-1) * size + i
          do i=1, size
             ans = (i-1) * size + rank + 1
             if (rbuf(i) .ne. ans) then
@@ -91,7 +91,7 @@
          sbuf(1+displ)     = rank
          displ           = displ + 1
          if (rank .lt. size-1) then
-            scounts(1+rank+1) = 1 
+            scounts(1+rank+1) = 1
             rcounts(1+rank+1) = 1
             sdispls(1+rank+1) = displ
             rdispls(1+rank+1) = rank+1
@@ -143,4 +143,4 @@
       call mtest_finalize( errs )
       call mpi_finalize( ierr )
       end
-      
+