• 배열의 시작이 0이 아닌 1.

PROGRAM test_getarg
  INTEGER :: i
  CHARACTER(len=32) :: arg

!CHARACTER(len=32) args(10)

! 동적 배열 선언 및 할당
CHARACTER(len=50), DIMENSION (:), ALLOCATABLE :: args
allocate(args(iargc()))

  DO i = 1, iargc()
!    CALL getarg(i, arg)
!    read(arg,*) args(i)
    CALL getarg(i, args(i))
    args(i) = TRIM(args(i))
  END DO

print *,size(args)

do i = 1, iargc()
        print *,args(i)
end do

! 할당 해제
deallocate(args)

END PROGRAM