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: Larry Baker (baker_at_[hidden])
Date: 2012-07-11 14:36:56


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
baker_at_[hidden]

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-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
>>>
>> _______________________________________________
>> devel mailing list
>> devel_at_[hidden]
>> http://www.open-mpi.org/mailman/listinfo.cgi/devel
>
>
> --
> Jeff Squyres
> jsquyres_at_[hidden]
> For corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/
>
>
> _______________________________________________
> devel mailing list
> devel_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/devel