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

diff --git a/teshsuite/smpi/mpich3-test/f77/rma/baseattrwinf.f b/teshsuite/smpi/mpich3-test/f77/rma/baseattrwinf.f
index 58b86f6c58..91d28dc039 100644
--- a/teshsuite/smpi/mpich3-test/f77/rma/baseattrwinf.f
+++ b/teshsuite/smpi/mpich3-test/f77/rma/baseattrwinf.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.
@@ -17,14 +17,14 @@ C Include addsize defines asize as an address-sized integer
       include 'addsize.h'
 
       errs = 0
-      
+
       call mtest_init( ierr )
       call mpi_comm_size( MPI_COMM_WORLD, commsize, ierr )
 
-C Create a window; then extract the values 
+C Create a window; then extract the values
       asize    = 1024
       disp = 4
-      call MPI_Win_create( base, asize, disp, MPI_INFO_NULL, 
+      call MPI_Win_create( base, asize, disp, MPI_INFO_NULL,
      &  MPI_COMM_WORLD, win, ierr )
 C
 C In order to check the base, we need an address-of function.
@@ -34,8 +34,8 @@ C We use MPI_Get_address, even though that isn't strictly correct
          errs = errs + 1
          print *, "Could not get WIN_BASE"
 C
-C There is no easy way to get the actual value of base to compare 
-C against.  MPI_Address gives a value relative to MPI_BOTTOM, which 
+C There is no easy way to get the actual value of base to compare
+C against.  MPI_Address gives a value relative to MPI_BOTTOM, which
 C is different from 0 in Fortran (unless you can define MPI_BOTTOM
 C as something like %pointer(0)).
 C      else
@@ -44,7 +44,7 @@ CC For this Fortran 77 version, we use the older MPI_Address function
 C         call MPI_Address( base, baseadd, ierr )
 C         if (valout .ne. baseadd) then
 C           errs = errs + 1
-C           print *, "Got incorrect value for WIN_BASE (", valout, 
+C           print *, "Got incorrect value for WIN_BASE (", valout,
 C     &             ", should be ", baseadd, ")"
 C         endif
       endif
@@ -56,7 +56,7 @@ C         endif
       else
         if (valout .ne. asize) then
             errs = errs + 1
-            print *, "Got incorrect value for WIN_SIZE (", valout, 
+            print *, "Got incorrect value for WIN_SIZE (", valout,
      &        ", should be ", asize, ")"
          endif
       endif
@@ -68,7 +68,7 @@ C         endif
       else
          if (valout .ne. disp) then
             errs = errs + 1
-            print *, "Got wrong value for WIN_DISP_UNIT (", valout, 
+            print *, "Got wrong value for WIN_DISP_UNIT (", valout,
      &               ", should be ", disp, ")"
          endif
       endif