We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2b34ed0 commit 1ce83fbCopy full SHA for 1ce83fb
src/sourcery/command_line_s.f90
@@ -43,6 +43,8 @@
43
flag_search: &
44
do argnum = 1,command_argument_count()
45
46
+ if (allocated(arg)) deallocate(arg)
47
+
48
call get_command_argument(argnum, length=arglen)
49
allocate(character(len=arglen) :: arg)
50
call get_command_argument(argnum, arg)
0 commit comments