X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d0ffc37686edcc803601f76ab51fdfed5fc2f241..bb12a168512ced7a0f1e4924d367c87ed7c22d1c:/teshsuite/smpi/mpich3-test/f90/coll/allredopttf90.f90 diff --git a/teshsuite/smpi/mpich3-test/f90/coll/allredopttf90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/allredopttf90.f90 index ffe1ffc729..1bc3e99f90 100644 --- a/teshsuite/smpi/mpich3-test/f90/coll/allredopttf90.f90 +++ b/teshsuite/smpi/mpich3-test/f90/coll/allredopttf90.f90 @@ -1,5 +1,5 @@ ! This file created from test/mpi/f77/coll/allredopttf.f with f77tof90 -! -*- Mode: Fortran; -*- +! -*- Mode: Fortran; -*- ! ! (C) 2007 by Argonne National Laboratory. ! See COPYRIGHT in top-level directory. @@ -12,7 +12,7 @@ integer errs, ierr errs = 0 - + call mtest_init( ierr ) call mpi_comm_size( MPI_COMM_WORLD, wsize, ierr ) !