From 3a92d652955392fa37b67aff3d9be3505512c7a2 Mon Sep 17 00:00:00 2001 From: Arnaud Giersch Date: Mon, 17 Mar 2014 09:42:18 +0100 Subject: [PATCH] Parameters were in wrong order. --- teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90 | 2 +- teshsuite/smpi/mpich3-test/f90/datatype/structf.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90 index 5367f998cc..123a6230e8 100644 --- a/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90 +++ b/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90 @@ -23,7 +23,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 ) stop endif diff --git a/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90 b/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90 index 71e9735422..8227ef06cd 100644 --- a/teshsuite/smpi/mpich3-test/f90/datatype/structf.f90 +++ b/teshsuite/smpi/mpich3-test/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 ) stop endif -- 2.20.1