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

diff --git a/teshsuite/smpi/mpich3-test/f77/datatype/typesnamef.f b/teshsuite/smpi/mpich3-test/f77/datatype/typesnamef.f
index b958c4998e..48df213786 100644
--- a/teshsuite/smpi/mpich3-test/f77/datatype/typesnamef.f
+++ b/teshsuite/smpi/mpich3-test/f77/datatype/typesnamef.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.
@@ -11,7 +11,7 @@ C
        integer ntype1, ntype2, errs, ierr
 
        errs = 0
-       
+
        call MTest_Init( ierr )
 
        call mpi_type_vector( 10, 1, 100, MPI_INTEGER, ntype1, ierr )
@@ -57,10 +57,10 @@ C now add a name, then dup
           errs = errs + 1
           print *, ' (type2) Datatype name is not all blank'
        endif
-       
+
        call mpi_type_free( ntype1, ierr )
        call mpi_type_free( ntype2, ierr )
-       
+
        call MTest_Finalize( errs )
        call MPI_Finalize( ierr )