X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/0e80ebd9d6030b109de1277c2c8d82f706276727..dbe51c601ca2336e834c7b8da15f8b8317573dcf:/teshsuite/smpi/fort_args/fort_args.f90?ds=sidebyside

diff --git a/teshsuite/smpi/fort_args/fort_args.f90 b/teshsuite/smpi/fort_args/fort_args.f90
index dbd9c10444..d1f4aea5b0 100644
--- a/teshsuite/smpi/fort_args/fort_args.f90
+++ b/teshsuite/smpi/fort_args/fort_args.f90
@@ -8,11 +8,6 @@ program getarg_1
   ! This should return the invoking command.  The actual value depends 
   ! on the OS, but a blank string is wrong no matter what.
   ! ??? What about deep embedded systems?
-
-  I2 = 0
-  CALL GETARG(I2,ARGS2)
-  if (args2.ne.args) STOP 1
-
   if (args.eq.'') STOP 2
   I = 1
   CALL GETARG(I,ARGS)