Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
as the comment was saying, that was unsafe, and flang was doing something else
authorAugustin Degomme <adegomme@users.noreply.github.com>
Thu, 26 Jul 2018 17:08:05 +0000 (19:08 +0200)
committerAugustin Degomme <adegomme@users.noreply.github.com>
Thu, 26 Jul 2018 17:08:05 +0000 (19:08 +0200)
teshsuite/smpi/fort_args/fort_args.f90

index dbd9c10..d1f4aea 100644 (file)
@@ -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?
   ! 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)
   if (args.eq.'') STOP 2
   I = 1
   CALL GETARG(I,ARGS)