Open MPI logo

Open MPI Development Mailing List Archives

  |   Home   |   Support   |   FAQ   |  

This web mail archive is frozen.

This page is part of a frozen web archive of this mailing list.

You can still navigate around this archive, but know that no new mails have been added to it since July of 2016.

Click here to be taken to the new web archives of this list; it includes all the mails that are in this frozen archive plus all new mails that have been sent to the list since it was migrated to the new archives.

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
>