Various doc improvements

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / coll / allredopttf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/allredopttf.f b/teshsuite/smpi/mpich3-test/f77/coll/allredopttf.f
index 1b71c8d2a750756de20d5cb0ac85942f40dee4da..74add9f8a16f1abeb21e63d99934a9fed6f12c1f 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/allredopttf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/allredopttf.f
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2007 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -12,7 +12,7 @@ C
       integer errs, ierr
 
       errs = 0
-      
+
       call mtest_init( ierr )
       call mpi_comm_size( MPI_COMM_WORLD, wsize, ierr )
 C
@@ -20,25 +20,25 @@ C A simple test of allreduce for the optional integer*8 type
 
       inbuf = 1
       outbuf = 0
-      call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM, 
+      call mpi_allreduce(inbuf, outbuf, 1, MPI_INTEGER8, MPI_SUM,
      &                   MPI_COMM_WORLD, ierr)
       if (outbuf .ne. wsize ) then
          errs = errs + 1
-         print *, "result wrong for sum with integer*8 = got ", outbuf, 
+         print *, "result wrong for sum with integer*8 = got ", outbuf,
      & " but should have ", wsize
       endif
       zinbuf = (1,1)
       zoutbuf = (0,0)
-      call mpi_allreduce(zinbuf, zoutbuf, 1, MPI_DOUBLE_COMPLEX, 
+      call mpi_allreduce(zinbuf, zoutbuf, 1, MPI_DOUBLE_COMPLEX,
      &                   MPI_SUM,  MPI_COMM_WORLD, ierr)
       if (dreal(zoutbuf) .ne. wsize ) then
          errs = errs + 1
-         print *, "result wrong for sum with double complex = got ", 
+         print *, "result wrong for sum with double complex = got ",
      & outbuf, " but should have ", wsize
       endif
       if (dimag(zoutbuf) .ne. wsize ) then
          errs = errs + 1
-         print *, "result wrong for sum with double complex = got ", 
+         print *, "result wrong for sum with double complex = got ",
      & outbuf, " but should have ", wsize
       endif
       call mtest_finalize( errs )