The value of i is exactly as it would be in C for the value of a loop control variable at loop exit. (As opposed to being undefined, which is what is used to be.) This dates from Fortran-77.
Larry Baker US Geological Survey 650-329-5608 ba...@usgs.gov On 11 Jul 2012, at 10:44 AM, Jeff Squyres wrote: > Ya, I saw Brian's commit, too. > > Ah, I see what happens -- i is actually 101, not 100. Frackin' Fortran... > > > On Jul 11, 2012, at 12:57 PM, Eugene Loh wrote: > >> Brian caught it. I simply applied the change to the other ibarrier_f* >> tests. With this and your "remove bozo debug statements" (+ sleeps) >> putbacks (26768/trunk and 26769/v1.7), I'm hoping our ibarrier_f* MTT >> time-outs will disappear. >> >> On 7/11/2012 9:26 AM, Jeff Squyres wrote: >>> 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 >>> >> _______________________________________________ >> devel mailing list >> de...@open-mpi.org >> http://www.open-mpi.org/mailman/listinfo.cgi/devel > > > -- > Jeff Squyres > jsquy...@cisco.com > For corporate legal information go to: > http://www.cisco.com/web/about/doing_business/legal/cri/ > > > _______________________________________________ > devel mailing list > de...@open-mpi.org > http://www.open-mpi.org/mailman/listinfo.cgi/devel
