aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/main.f90 b/main.f90
index c587345..d88601f 100644
--- a/main.f90
+++ b/main.f90
@@ -61,7 +61,7 @@ implicit none
stop
end if
- i = 1
+ i = 0
do while(i <= command_argument_count())
call get_command_argument(i, arg)
if(trim(arg) == "-pub") then
@@ -85,7 +85,7 @@ implicit none
call write_log("Initiating program")
! Diagnostics
- do i = 1,command_argument_count()
+ do i = 0,command_argument_count()
call get_command_argument(i, arg)
call write_log("Argument: "//trim(arg))
end do