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: Eugene Loh (eugene.loh_at_[hidden])
Date: 2012-07-11 12:57:32


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
>