Skip to content

Commit 758f218

Browse files
authored
Merge pull request #50 from sourceryinstitute/fix-command-line
fix(command_line): handle multiple arguments
2 parents 2b34ed0 + 1ce83fb commit 758f218

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/sourcery/command_line_s.f90

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -43,6 +43,8 @@
4343
flag_search: &
4444
do argnum = 1,command_argument_count()
4545

46+
if (allocated(arg)) deallocate(arg)
47+
4648
call get_command_argument(argnum, length=arglen)
4749
allocate(character(len=arglen) :: arg)
4850
call get_command_argument(argnum, arg)

0 commit comments

Comments
 (0)