@@ -22,18 +22,18 @@ program help_test
22
22
character (len=* ),parameter :: cmds(* ) = [character (len= 80 ) :: &
23
23
! build manual as pieces using various help commands
24
24
! debug version
25
- ' --version ' ,& ! verify fpm version being used
26
- ' --help > fpm_scratch_help.txt' ,&
27
- ' help new >> fpm_scratch_help.txt' ,&
28
- ' help update >> fpm_scratch_help.txt' ,&
29
- ' build --help >> fpm_scratch_help.txt' ,&
30
- ' help run >> fpm_scratch_help.txt' ,&
31
- ' help test >> fpm_scratch_help.txt' ,&
32
- ' help runner >> fpm_scratch_help.txt' ,&
33
- ' help install >> fpm_scratch_help.txt' ,&
34
- ' help list >> fpm_scratch_help.txt' ,&
35
- ' help help >> fpm_scratch_help.txt' ,&
36
- ' --version >> fpm_scratch_help.txt' ,&
25
+ ' --version ' ,& ! verify fpm version being used
26
+ ' --help > fpm_scratch_help.txt' ,&
27
+ ' help new >> fpm_scratch_help.txt' ,&
28
+ ' help update >> fpm_scratch_help.txt' ,&
29
+ ' build --help >> fpm_scratch_help.txt' ,&
30
+ ' help run >> fpm_scratch_help.txt' ,&
31
+ ' help test >> fpm_scratch_help.txt' ,&
32
+ ' help runner >> fpm_scratch_help.txt' ,&
33
+ ' help install >> fpm_scratch_help.txt' ,&
34
+ ' help list >> fpm_scratch_help.txt' ,&
35
+ ' help help >> fpm_scratch_help.txt' ,&
36
+ ' --version >> fpm_scratch_help.txt' ,&
37
37
! generate manual
38
38
' help manual > fpm_scratch_manual.txt' ]
39
39
@@ -105,7 +105,7 @@ program help_test
105
105
! execute the fpm(1) commands
106
106
do i= 1 ,size (cmds)
107
107
message= ' '
108
- path= prog // cmds(i)
108
+ path= prog // ' ' // cmds(i)
109
109
call execute_command_line(path,exitstat= estat,cmdstat= cstat,cmdmsg= message)
110
110
write (* ,' (*(g0))' )' <INFO>CMD=' ,path,' EXITSTAT=' ,estat,' CMDSTAT=' ,cstat,' MESSAGE=' ,trim (message)
111
111
tally= [tally,all ([estat.eq. 0 ,cstat.eq. 0 ])]
0 commit comments