Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Parameters were in wrong order.
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / datatype / indtype.f90
index 5367f99..123a623 100644 (file)
@@ -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