@@ -321,7 +321,7 @@ subroutine cmd_run(settings)
321
321
stop
322
322
endif
323
323
else
324
- ! *! expand names, duplicates are a problem??
324
+ ! expand names, duplicates are a problem??
325
325
allocate (foundit(size (settings% name)))
326
326
foundit= .false.
327
327
FINDIT: do i= 1 ,size (package% executable)
@@ -341,10 +341,10 @@ subroutine cmd_run(settings)
341
341
if (allocated (foundit))deallocate (foundit)
342
342
endif
343
343
do i= 1 ,size (newwords)
344
- ! *! list is a new option for use with xargs, to move files to production area, valgrind, gdb, ls -l, ....
345
- ! *! maybe add as --mask and could do --mask 'echo %xx' or --mask 'cp %XX /usr/local/bin/' an so on
346
- ! *! default if blank would be filename uptodate|needs|updated|doesnotexist creation_date, ...
347
- ! *! or maybe just list filenames so can pipe through xargs, and so on
344
+ ! list is a new option for use with xargs, to move files to production area, valgrind, gdb, ls -l, ....
345
+ ! maybe add as --mask and could do --mask 'echo %xx' or --mask 'cp %XX /usr/local/bin/' an so on
346
+ ! default if blank would be filename uptodate|needs|updated|doesnotexist creation_date, ...
347
+ ! or maybe just list filenames so can pipe through xargs, and so on
348
348
if (settings% list)then
349
349
write (stderr,' (*(g0,1x))' )' fpm::run<INFO>:executable expected at' ,newwords(i),&
350
350
& merge (' exists ' ,' does not exist' ,exists(newwords(i)))
@@ -403,7 +403,7 @@ subroutine cmd_test(settings)
403
403
stop
404
404
endif
405
405
else
406
- ! * ! expand names, duplicates are a problem??
406
+ ! expand names, duplicates are a problem??
407
407
allocate (foundit(size (settings% name)))
408
408
foundit= .false.
409
409
FINDIT: do i= 1 ,size (package% test)
@@ -423,10 +423,10 @@ subroutine cmd_test(settings)
423
423
if (allocated (foundit))deallocate (foundit)
424
424
endif
425
425
do i= 1 ,size (newwords)
426
- ! *! list is a new option for use with xargs, to move files to production area, valgrind, gdb, ls -l, ....
427
- ! *! maybe add as --mask and could do --mask 'echo %xx' or --mask 'cp %XX /usr/local/bin/' an so on
428
- ! *! default if blank would be filename uptodate|needs|updated|doesnotexist creation_date, ...
429
- ! *! or maybe just list filenames so can pipe through xargs, and so on
426
+ ! list is a new option for use with xargs, to move files to production area, valgrind, gdb, ls -l, ....
427
+ ! maybe add as --mask and could do --mask 'echo %xx' or --mask 'cp %XX /usr/local/bin/' an so on
428
+ ! default if blank would be filename uptodate|needs|updated|doesnotexist creation_date, ...
429
+ ! or maybe just list filenames so can pipe through xargs, and so on
430
430
if (settings% list)then
431
431
write (stderr,' (*(g0,1x))' )' fpm::run<INFO>:test expected at' ,newwords(i),&
432
432
& merge (' exists ' ,' does not exist' ,exists(newwords(i)))
0 commit comments