]> AND Public Git Repository - simgrid.git/blobdiff - teshsuite/smpi/mpich3-test/f90/datatype/structf.f90
Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge 'master' into mc
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / datatype / structf.f90
index abc17daf16c566b6003f44987aa8434a1e252f62..71e973542227227cf071b8855bc4321e71219e15 100644 (file)
@@ -45,6 +45,7 @@
       if (size .lt. 2) then
          print *, "Must have at least 2 processes"
          call MPI_Abort( 1, MPI_COMM_WORLD, ierr )
+         stop
       endif
 
       comm = MPI_COMM_WORLD