File tree Expand file tree Collapse file tree 1 file changed +11
-2
lines changed Expand file tree Collapse file tree 1 file changed +11
-2
lines changed Original file line number Diff line number Diff line change @@ -416,11 +416,20 @@ subroutine cmd_run(settings,test)
416
416
do i= 1 ,size (executables)
417
417
if (exists(executables(i)% s)) then
418
418
if (settings% runner .ne. ' ' )then
419
- call run(settings% runner// ' ' // executables(i)% s// " " // settings% args, &
419
+ if (.not. allocated (settings% args))then
420
+ call run(settings% runner// ' ' // executables(i)% s, &
420
421
echo= settings% verbose, exitstat= stat(i))
422
+ else
423
+ call run(settings% runner// ' ' // executables(i)% s// " " // settings% args, &
424
+ echo= settings% verbose, exitstat= stat(i))
425
+ endif
421
426
else
422
- call run(executables(i)% s// " " // settings% args,echo= settings% verbose, &
427
+ if (.not. allocated (settings% args))then
428
+ call run(executables(i)% s,echo= settings% verbose, exitstat= stat(i))
429
+ else
430
+ call run(executables(i)% s// " " // settings% args,echo= settings% verbose, &
423
431
exitstat= stat(i))
432
+ endif
424
433
endif
425
434
else
426
435
call fpm_stop(1 ,' *cmd_run*:' // executables(i)% s// ' not found' )
You can’t perform that action at this time.
0 commit comments