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.
2 parents 2b34ed0 + 1ce83fb commit 758f218Copy full SHA for 758f218
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