diff options
-rw-r--r-- | main.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |