diff options
| -rw-r--r-- | fpm/test/help_test/help_test.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fpm/test/help_test/help_test.f90 b/fpm/test/help_test/help_test.f90 index c7c62ee..fd0a3c9 100644 --- a/fpm/test/help_test/help_test.f90 +++ b/fpm/test/help_test/help_test.f90 @@ -15,6 +15,7 @@ integer :: chars ! run a variety of "fpm help" variations and verify expected files are generated character(len=*),parameter :: cmds(*) = [character(len=80) :: & ! build manual as pieces using various help commands +'fpm run -- --version ',& ! verify fpm version being used 'fpm run -- --help > fpm_scratch_help.txt',& 'fpm run -- help new >> fpm_scratch_help.txt',& 'fpm run -- build --help >> fpm_scratch_help.txt',& @@ -247,8 +248,13 @@ character(len=1),parameter :: nl=char(10) if(allocated(table))deallocate(table) !intel-bug!allocate(character(len=linelength) :: table(lines)) allocate(character(len=132) :: table(lines)) + !!----------------------------------------------------------- table=' ' - + !!possible bug in mingw. null filled instead of space padded? + do i=1,lines + table(i)=repeat(' ',len(table)) + enddo + !!----------------------------------------------------------- linecount=1 position=1 do i=1,sz |