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

[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / datatype / kinds.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/kinds.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/kinds.f90
index 3d42946..d4437e3 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/datatype/kinds.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/kinds.f90
@@ -1,4 +1,4 @@
-! -*- Mode: Fortran; -*- 
+! -*- Mode: Fortran; -*-
 !
 !  (C) 2011 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
@@ -59,7 +59,7 @@
      call MPI_SEND( aint, 1, MPI_AINT, 1, 0, MPI_COMM_WORLD, ierr )
      call MPI_SEND( oint, 1, MPI_OFFSET, 1, 1, MPI_COMM_WORLD, ierr )
      call MPI_SEND( iint, 1, MPI_INTEGER, 1, 2, MPI_COMM_WORLD, ierr )
-!     
+!
   else if (wrank .eq. 1) then
      if (range(taint) .ge. 10) then
         taint = 1
@@ -90,19 +90,19 @@
      endif
      call MPI_RECV( aint, 1, MPI_AINT, 0, 0, MPI_COMM_WORLD, s, ierr )
      if (taint .ne. aint) then
-        print *, "Address-sized int not correctly transfered"
+        print *, "Address-sized int not correctly transferred"
         print *, "Value should be ", taint, " but is ", aint
         errs = errs + 1
      endif
      call MPI_RECV( oint, 1, MPI_OFFSET, 0, 1, MPI_COMM_WORLD, s, ierr )
      if (toint .ne. oint) then
-        print *, "Offset-sized int not correctly transfered"
+        print *, "Offset-sized int not correctly transferred"
         print *, "Value should be ", toint, " but is ", oint
         errs = errs + 1
      endif
      call MPI_RECV( iint, 1, MPI_INTEGER, 0, 2, MPI_COMM_WORLD, s, ierr )
      if (tiint .ne. iint) then
-        print *, "Integer (by kind) not correctly transfered"
+        print *, "Integer (by kind) not correctly transferred"
         print *, "Value should be ", tiint, " but is ", iint
         errs = errs + 1
      endif