Revert "move fort_args test to a "fort args" folder, with a space"

[simgrid.git] / teshsuite / smpi / fort_args / fort_args.f90

diff --git a/teshsuite/smpi/fort_args/fort_args.f90 b/teshsuite/smpi/fort_args/fort_args.f90
index dbd9c10..dfd5308 100644 (file)
--- a/teshsuite/smpi/fort_args/fort_args.f90
+++ b/teshsuite/smpi/fort_args/fort_args.f90
@@ -1,18 +1,16 @@
-! Check that getarg does somethig sensible.
+! Check that getarg does something sensible.
 program getarg_1
+  use mpi
   CHARACTER*10 ARGS, ARGS2
   INTEGER*4 I
   INTEGER*2 I2
+  INTEGER ierr
   I = 0
+  call MPI_Init(ierr)
   CALL GETARG(I,ARGS)
   ! 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)
@@ -27,4 +25,5 @@ program getarg_1
   I = 1000
   CALL GETARG(I,ARGS)
   if (args.ne.'') STOP 6
+  call MPI_Finalize(ierr)
 end