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

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / pt2pt / statusesf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/pt2pt/statusesf.f b/teshsuite/smpi/mpich3-test/f77/pt2pt/statusesf.f
index b01d26b..96c9c2e 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/pt2pt/statusesf.f
+++ b/teshsuite/smpi/mpich3-test/f77/pt2pt/statusesf.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.
@@ -18,14 +18,14 @@ C     Test support for MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE
       call mpi_init( ierr )
       if (ierr .ne. MPI_SUCCESS) then
          errs = errs + 1
-         print *, 'Unexpected return from MPI_INIT', ierr 
+         print *, 'Unexpected return from MPI_INIT', ierr
       endif
 
       ierr = -1
       call mpi_comm_rank( MPI_COMM_WORLD, rank, ierr )
       if (ierr .ne. MPI_SUCCESS) then
          errs = errs + 1
-         print *, 'Unexpected return from MPI_COMM_WORLD', ierr 
+         print *, 'Unexpected return from MPI_COMM_WORLD', ierr
       endif
       do i=1, nreqs, 2
          ierr = -1
@@ -33,14 +33,14 @@ C     Test support for MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE
      $        MPI_COMM_WORLD, reqs(i), ierr )
          if (ierr .ne. MPI_SUCCESS) then
             errs = errs + 1
-            print *, 'Unexpected return from MPI_ISEND', ierr 
+            print *, 'Unexpected return from MPI_ISEND', ierr
          endif
          ierr = -1
          call mpi_irecv( MPI_BOTTOM, 0, MPI_BYTE, rank, i,
      $        MPI_COMM_WORLD, reqs(i+1), ierr )
          if (ierr .ne. MPI_SUCCESS) then
             errs = errs + 1
-            print *, 'Unexpected return from MPI_IRECV', ierr 
+            print *, 'Unexpected return from MPI_IRECV', ierr
          endif
       enddo
 
@@ -48,7 +48,7 @@ C     Test support for MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE
       call mpi_waitall( nreqs, reqs, MPI_STATUSES_IGNORE, ierr )
       if (ierr .ne. MPI_SUCCESS) then
          errs = errs + 1
-         print *, 'Unexpected return from MPI_WAITALL', ierr 
+         print *, 'Unexpected return from MPI_WAITALL', ierr
       endif
 
       call mtest_finalize( errs )