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

diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/hindex1f90.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/hindex1f90.f90
index 7941ced3c5..4b96068c2c 100644
--- a/teshsuite/smpi/mpich3-test/f90/datatype/hindex1f90.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/hindex1f90.f90
@@ -1,5 +1,5 @@
 ! This file created from test/mpi/f77/datatype/hindex1f.f with f77tof90
-! -*- Mode: Fortran; -*- 
+! -*- Mode: Fortran; -*-
 !
 !
 !  (C) 2011 by Argonne National Laboratory.
@@ -14,19 +14,19 @@
       integer inbuf(bufsize), outbuf(bufsize), packbuf(bufsize)
       integer position, len, psize
 !
-!     Test for hindexed; 
-!     
+!     Test for hindexed;
+!
       errs = 0
       call mtest_init( ierr )
 
       call mpi_type_size( MPI_INTEGER, intsize, ierr )
-      
+
       do i=1, 10
          displs(i) = (10-i)*intsize
          counts(i) = 1
       enddo
       call mpi_type_hindexed( 10, counts, displs, MPI_INTEGER, dtype, &
-      &     ierr ) 
+      &     ierr )
       call mpi_type_commit( dtype, ierr )
 !
       call mpi_pack_size( 1, dtype, MPI_COMM_WORLD, psize, ierr )
@@ -45,7 +45,7 @@
          position = 0
          call mpi_unpack( packbuf, len, position, outbuf, 10, &
       &        MPI_INTEGER, MPI_COMM_WORLD, ierr )
-!     
+!
          do i=1, 10
             if (outbuf(i) .ne. 11-i) then
                errs = errs + 1