X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/3928c9b3860770cd5efbaa3515e9df6d09273e52..f2df13795e01302813a6aef10825ec7e922ce530:/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90

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