diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 10:19:46 -0500 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 10:19:46 -0500 |
| commit | 88389c926ee095e8fa35cbd37bfbc2e794b8b412 (patch) | |
| tree | daf25107a21fa59713ab9272fc83dc1294946590 | |
| parent | 76047363a625e9e4fbb90403050c29d070a5c126 (diff) | |
| download | fpm-88389c926ee095e8fa35cbd37bfbc2e794b8b412.tar.gz fpm-88389c926ee095e8fa35cbd37bfbc2e794b8b412.zip | |
debugging mingw
| -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 |