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