File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -511,7 +511,7 @@ subroutine cmd_run(settings,test)
511
511
! Enumerate executable targets to run
512
512
col_width = - 1
513
513
found(:) = .false.
514
- allocate (executables(0 ))
514
+ allocate (executables(size (settings % name) ))
515
515
do i= 1 ,size (targets)
516
516
517
517
exe_target = > targets(i)% ptr
@@ -534,11 +534,12 @@ subroutine cmd_run(settings,test)
534
534
535
535
do j= 1 ,size (settings% name)
536
536
537
- if (glob(trim (exe_source% exe_name),trim (settings% name (j)))) then
537
+ if (glob(trim (exe_source% exe_name),trim (settings% name (j))) .and. .not. found(j)) then
538
+
538
539
539
540
found(j) = .true.
540
541
exe_cmd% s = exe_target% output_file
541
- executables = [executables, exe_cmd]
542
+ executables(j) = exe_cmd
542
543
543
544
end if
544
545
You can’t perform that action at this time.
0 commit comments