same thing elsewhere

[simgrid.git] / 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 79829e7a2f88e5b7f25d601bf111c73d4c4331cd..3d05a6b63a796632301a9f102f6081b15fdccdee 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90
+++ b/teshsuite/smpi/mpich3-test/f90/datatype/indtype.f90
@@ -6,8 +6,8 @@
 ! This test contributed by Kim McMahon, Cray
 !
       program main
-      implicit none
       use mpi
+      implicit none
 
       integer ierr, i, j, type, count,errs
       parameter (count = 4)
@@ -23,7 +23,8 @@
       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
 
       errs = 0