debugging mingw

Author: urbanjost

fpm/test/help_test/help_test.f90

@@ -15,6 +15,7 @@ program help_test
 ! 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 @@ function page(array)  result (table)
    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