The value of i is exactly as it would be in C for the value of a loop control variable at loop exit.  (As opposed to being undefined, which is what is used to be.)  This dates from Fortran-77.

Larry Baker
US Geological Survey
650-329-5608
baker@usgs.gov



On 11 Jul 2012, at 10:44 AM, Jeff Squyres wrote:

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.com
For 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