[mpich-commits] [mpich] MPICH primary repository branch, master, updated. v3.1-159-g2dc3960
Service Account
noreply at mpich.org
Mon Apr 21 16:52:58 CDT 2014
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "MPICH primary repository".
The branch, master has been updated
via 2dc3960a863977d980334ed7fbd199a87bb6d35f (commit)
from 3ebeb7227bfc8cea87463cc3b795b87c0ea43296 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
http://git.mpich.org/mpich.git/commitdiff/2dc3960a863977d980334ed7fbd199a87bb6d35f
commit 2dc3960a863977d980334ed7fbd199a87bb6d35f
Author: Ken Raffenetti <raffenet at mcs.anl.gov>
Date: Thu Apr 17 09:01:40 2014 -0500
fix incorrect usage of MPI_Abort in f90 tests
Signed-off-by: Junchao Zhang <jczhang at mcs.anl.gov>
diff --git a/test/mpi/f90/datatype/indtype.f90 b/test/mpi/f90/datatype/indtype.f90
index c75999a..29807e7 100644
--- a/test/mpi/f90/datatype/indtype.f90
+++ b/test/mpi/f90/datatype/indtype.f90
@@ -22,7 +22,7 @@
call mpi_comm_rank( MPI_COMM_WORLD, rank, ierr )
if (size .lt. 2) then
print *, "Must have at least 2 processes"
- call MPI_Abort( 1, MPI_COMM_WORLD, ierr )
+ call MPI_Abort( MPI_COMM_WORLD, 1, ierr )
endif
errs = 0
diff --git a/test/mpi/f90/datatype/structf.f90 b/test/mpi/f90/datatype/structf.f90
index 6cf3419..a307df3 100644
--- a/test/mpi/f90/datatype/structf.f90
+++ b/test/mpi/f90/datatype/structf.f90
@@ -44,7 +44,7 @@
call mpi_comm_size(MPI_COMM_WORLD, size, ierr )
if (size .lt. 2) then
print *, "Must have at least 2 processes"
- call MPI_Abort( 1, MPI_COMM_WORLD, ierr )
+ call MPI_Abort( MPI_COMM_WORLD, 1, ierr )
endif
comm = MPI_COMM_WORLD
-----------------------------------------------------------------------
Summary of changes:
test/mpi/f90/datatype/indtype.f90 | 2 +-
test/mpi/f90/datatype/structf.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
hooks/post-receive
--
MPICH primary repository
More information about the commits
mailing list