settings%args was used unallocated

Author: urbanjost

src/fpm.f90

@@ -423,11 +423,20 @@ subroutine cmd_run(settings,test)
         do i=1,size(executables)
             if (exists(executables(i)%s)) then
                 if(settings%runner .ne. ' ')then
-                    call run(settings%runner//' '//executables(i)%s//" "//settings%args, &
+                    if(.not.allocated(settings%args))then
+                       call run(settings%runner//' '//executables(i)%s, &
                              echo=settings%verbose, exitstat=stat(i))
+                    else
+                       call run(settings%runner//' '//executables(i)%s//" "//settings%args, &
+                             echo=settings%verbose, exitstat=stat(i))
+                    endif
                 else
-                    call run(executables(i)%s//" "//settings%args,echo=settings%verbose, &
+                    if(.not.allocated(settings%args))then
+                       call run(executables(i)%s,echo=settings%verbose, exitstat=stat(i))
+                    else
+                       call run(executables(i)%s//" "//settings%args,echo=settings%verbose, &
                              exitstat=stat(i))
+                    endif
                 endif
             else
                 write(stderr,*)'fpm::run<ERROR>',executables(i)%s,' not found'