X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9deda161a84a426d0ea75ec4bd9b8cdc3a4b28fb..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f77/attr/attrmpi1f.f

diff --git a/teshsuite/smpi/mpich3-test/f77/attr/attrmpi1f.f b/teshsuite/smpi/mpich3-test/f77/attr/attrmpi1f.f
index 44e5b5e3e1..93d6709012 100644
--- a/teshsuite/smpi/mpich3-test/f77/attr/attrmpi1f.f
+++ b/teshsuite/smpi/mpich3-test/f77/attr/attrmpi1f.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.
@@ -19,7 +19,7 @@ C
 C     Simple attribute put and get
 C
       call mpi_keyval_create( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN,
-     $     mykey, extra,ierr ) 
+     $     mykey, extra,ierr )
       call mpi_attr_get( MPI_COMM_WORLD, mykey, value, flag, ierr )
       if (flag) then
          errs = errs + 1
@@ -55,7 +55,7 @@ C
             print *, "Neg Attribute value ", rvalue," should be ",svalue
          endif
       endif
-C      
+C
       call mpi_keyval_free( mykey, ierr )
       call mtest_finalize( errs )
       call mpi_finalize( ierr )