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 13:44:34


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/