This is an old revision of the document!
PROGRAM test_getarg
INTEGER :: i
CHARACTER(len=32) :: arg
CHARACTER(len=32) args(10)
DO i = 1, iargc()
CALL getarg(i, arg)
read(arg,*) args(i)
END DO
DO i = 1, iargc()
print *,args(i)
end do
END PROGRAM