Open MPI logo

Open MPI Development Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Development mailing list

Subject: Re: [OMPI devel] [OMPI svn-docs] svn:open-mpi-tests r2002 - trunk/ibm/collective
From: Jeff Squyres (jsquyres_at_[hidden])
Date: 2012-07-11 12:26:19


I thought i would be 100 at the end of that do loop.

$%#@#@$% Fortran. :-(

On Jul 11, 2012, at 12:25 PM, <svn-commit-mailer_at_[hidden]> wrote:

> Author: eugene (Eugene Loh)
> Date: 2012-07-11 12:25:09 EDT (Wed, 11 Jul 2012)
> New Revision: 2002
>
> Log:
> Apply the "right value when calling waitall" fix to
> all ibm/collective/ibarrier_f* tests.
>
> Text files modified:
> trunk/ibm/collective/ibarrier_f.f90 | 4 ++--
> trunk/ibm/collective/ibarrier_f08.f90 | 3 ++-
> trunk/ibm/collective/ibarrier_f90.f90 | 3 ++-
> 3 files changed, 6 insertions(+), 4 deletions(-)
>
> Modified: trunk/ibm/collective/ibarrier_f.f90
> ==============================================================================
> --- trunk/ibm/collective/ibarrier_f.f90 Wed Jul 11 12:03:04 2012 (r2001)
> +++ trunk/ibm/collective/ibarrier_f.f90 2012-07-11 12:25:09 EDT (Wed, 11 Jul 2012) (r2002)
> @@ -31,6 +31,7 @@
> ! Comments may be sent to:
> ! Richard Treumann
> ! treumann_at_[hidden]
> +! Copyright (c) 2012 Oracle and/or its affiliates.
>
> program ibarrier
> implicit none
> @@ -57,8 +58,7 @@
> do i = 1, 100
> call MPI_Ibarrier(MPI_COMM_WORLD, req(i), ierr)
> end do
> - i = 100
> - call MPI_Waitall(i, req, statuses, ierr)
> + call MPI_Waitall(100, req, statuses, ierr)
>
> call MPI_Barrier(MPI_COMM_WORLD, ierr)
> call MPI_Finalize(ierr)
>
> Modified: trunk/ibm/collective/ibarrier_f08.f90
> ==============================================================================
> --- trunk/ibm/collective/ibarrier_f08.f90 Wed Jul 11 12:03:04 2012 (r2001)
> +++ trunk/ibm/collective/ibarrier_f08.f90 2012-07-11 12:25:09 EDT (Wed, 11 Jul 2012) (r2002)
> @@ -31,6 +31,7 @@
> ! Comments may be sent to:
> ! Richard Treumann
> ! treumann_at_[hidden]
> +! Copyright (c) 2012 Oracle and/or its affiliates.
>
> program ibarrier
> use mpi_f08
> @@ -56,7 +57,7 @@
> do i = 1, 100
> call MPI_Ibarrier(MPI_COMM_WORLD, req(i))
> end do
> - call MPI_Waitall(i, req, MPI_STATUSES_IGNORE)
> + call MPI_Waitall(100, req, MPI_STATUSES_IGNORE)
>
> call MPI_Barrier(MPI_COMM_WORLD)
> call MPI_Finalize()
>
> Modified: trunk/ibm/collective/ibarrier_f90.f90
> ==============================================================================
> --- trunk/ibm/collective/ibarrier_f90.f90 Wed Jul 11 12:03:04 2012 (r2001)
> +++ trunk/ibm/collective/ibarrier_f90.f90 2012-07-11 12:25:09 EDT (Wed, 11 Jul 2012) (r2002)
> @@ -31,6 +31,7 @@
> ! Comments may be sent to:
> ! Richard Treumann
> ! treumann_at_[hidden]
> +! Copyright (c) 2012 Oracle and/or its affiliates.
>
> program ibarrier
> use mpi
> @@ -57,7 +58,7 @@
> do i = 1, 100
> call MPI_Ibarrier(MPI_COMM_WORLD, req(i), ierr)
> end do
> - call MPI_Waitall(i, req, statuses, ierr)
> + call MPI_Waitall(100, req, statuses, ierr)
>
> call MPI_Barrier(MPI_COMM_WORLD, ierr)
> call MPI_Finalize(ierr)
> _______________________________________________
> svn-docs-full mailing list
> svn-docs-full_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/svn-docs-full

-- 
Jeff Squyres
jsquyres_at_[hidden]
For corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/