Re: [OMPI devel] [OMPI svn-docs] svn:open-mpi-tests r2002 - trunk/ibm/collective

[Eugene Loh]

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-mai...@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
!    treum...@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
!    treum...@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
!    treum...@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-f...@open-mpi.org
http://www.open-mpi.org/mailman/listinfo.cgi/svn-docs-full