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