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

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
index 59cb7e447b..aeca3b5578 100644
--- a/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/coll/exscanf90.f90
@@ -1,5 +1,5 @@
 ! This file created from test/mpi/f77/coll/exscanf.f with f77tof90
-! -*- Mode: Fortran; -*- 
+! -*- Mode: Fortran; -*-
 !
 !  (C) 2003 by Argonne National Laboratory.
 !      See COPYRIGHT in top-level directory.
@@ -9,7 +9,7 @@
       integer cin(*), cout(*)
       integer count, datatype
       integer i
-      
+
       if (.false.) then
          if (datatype .ne. MPI_INTEGER) then
             write(6,*) 'Invalid datatype passed to user_op()'
@@ -32,7 +32,7 @@
       allocate(inbuf(2), STAT=status)
       allocate(outbuf(2), STAT=status)
       errs = 0
-      
+
       call mtest_init( ierr )
 !
 ! A simple test of exscan
@@ -59,7 +59,7 @@
          endif
       endif
 !
-! Try a user-defined operation 
+! Try a user-defined operation
 !
       call mpi_op_create( uop, .true., sumop, ierr )
       inbuf(1) = rank
@@ -80,7 +80,7 @@
          endif
       endif
       call mpi_op_free( sumop, ierr )
-      
+
 !
 ! Try a user-defined operation (and don't claim it is commutative)
 !