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

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / topo / cartcrf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/topo/cartcrf.f b/teshsuite/smpi/mpich3-test/f77/topo/cartcrf.f
index a23c1788123f0d5aea8d77e15a210099d6304c19..965750441330c9d884d9af49cf05101adbb86f39 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/topo/cartcrf.f
+++ b/teshsuite/smpi/mpich3-test/f77/topo/cartcrf.f
@@ -1,9 +1,9 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2004 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
 C
-C Test various combinations of periodic and non-periodic Cartesian 
+C Test various combinations of periodic and non-periodic Cartesian
 C communicators
 C
       program main
@@ -22,7 +22,7 @@ C
       call mtest_init( ierr )
 
 C
-C     For upto 6 dimensions, test with periodicity in 0 through all
+C     For up to 6 dimensions, test with periodicity in 0 through all
 C     dimensions.  The test is computed by both:
 C         get info about the created communicator
 C         apply cart shift
@@ -74,7 +74,7 @@ C                  print *, i, '(', outcoords(i), ')'
                         endif
                      endif
                   endif
-                  
+
                   call mpi_cart_shift( newcomm, i-1, -1, source, dest,
      $                 ierr )
                   if (outcoords(i) .eq. 0) then
@@ -93,10 +93,10 @@ C                  print *, i, '(', outcoords(i), ')'
                enddo
                call mpi_comm_free( newcomm, ierr )
             endif
-            
+
          enddo
       enddo
-      
+
       call mtest_finalize( errs )
       call mpi_finalize( ierr )
       end