X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/ba1c6dce93f9ab740c9d66e268572e5c803b5edb..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90
index b2118b69b5..32f77762f9 100644
--- a/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90
@@ -1,8 +1,8 @@
-!  
+!
 !  (C) 2004 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
 !
-! Thanks to 
+! Thanks to
 ! William R. Magro
 ! for this test
 !
@@ -17,7 +17,7 @@
       use mpi
       implicit none
 
-      
+
       integer comm
       integer newtype
       integer me
@@ -72,7 +72,7 @@
           call mpi_send(MPI_BOTTOM,1,newtype,dest,1,comm,ierr)
           call mpi_type_free(newtype,ierr)
 !         write(*,*) "Sent ",name(1:5),x
-      else 
+      else
 !         Everyone calls barrier in case size > 2
           call mpi_barrier( MPI_COMM_WORLD, ierr )
           if (me.eq.dest) then
@@ -82,7 +82,7 @@
              x    = 0.0d0
              call mpi_recv(buf,bufsize,MPI_PACKED, src,                    &
      &            1, comm, status, ierr)
-             
+
              call mpi_unpack(buf,bufsize,position,                         &
      &            name,5,MPI_CHARACTER, comm,ierr)
              call mpi_unpack(buf,bufsize,position,                         &