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@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
! treumann@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
! treumann@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
! treumann@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-full@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/svn-docs-full
_______________________________________________
devel mailing list
devel@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/devel
--
Jeff Squyres
jsquyres@cisco.comFor corporate legal information go to: http://www.cisco.com/web/about/doing_business/legal/cri/
_______________________________________________
devel mailing list
devel@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/devel