@@ -22,19 +22,19 @@ 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
- ' help clean >> fpm_scratch_help.txt' ,&
37
- ' --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
+ ' help clean >> fpm_scratch_help.txt' ,&
37
+ ' --version >> fpm_scratch_help.txt' ,&
38
38
! generate manual
39
39
' help manual > fpm_scratch_manual.txt' ]
40
40
@@ -106,7 +106,7 @@ program help_test
106
106
! execute the fpm(1) commands
107
107
do i= 1 ,size (cmds)
108
108
message= ' '
109
- path= prog // cmds(i)
109
+ path= prog // ' ' // cmds(i)
110
110
call execute_command_line(path,exitstat= estat,cmdstat= cstat,cmdmsg= message)
111
111
write (* ,' (*(g0))' )' <INFO>CMD=' ,path,' EXITSTAT=' ,estat,' CMDSTAT=' ,cstat,' MESSAGE=' ,trim (message)
112
112
tally= [tally,all ([estat.eq. 0 ,cstat.eq. 0 ])]
0 commit comments