diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-07-13 16:04:01 -0400 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-07-13 16:04:01 -0400 |
| commit | 76589b8e3cc9f93d3ec6ab96aa6688507376dd8f (patch) | |
| tree | 083f81dcbf51a4161be5efb94b0bb104af8321ba /src/fpm.f90 | |
| parent | 117690dda9d36cac4c22feb6f35618bd90d49cd3 (diff) | |
| download | fpm-76589b8e3cc9f93d3ec6ab96aa6688507376dd8f.tar.gz fpm-76589b8e3cc9f93d3ec6ab96aa6688507376dd8f.zip | |
settings%args was used unallocated
Diffstat (limited to 'src/fpm.f90')
| -rw-r--r-- | src/fpm.f90 | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/fpm.f90 b/src/fpm.f90 index c670378..a80f1f6 100644 --- a/src/fpm.f90 +++ b/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' |