I thought i would be 100 at the end of that do loop. $%#@#@$% Fortran. :-(
On Jul 11, 2012, at 12:25 PM, <svn-commit-mai...@open-mpi.org> 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 > ! treum...@kgn.ibm.com > +! 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 > ! treum...@kgn.ibm.com > +! 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 > ! treum...@kgn.ibm.com > +! 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-f...@open-mpi.org > http://www.open-mpi.org/mailman/listinfo.cgi/svn-docs-full -- Jeff Squyres jsquy...@cisco.com For corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/
