diff options
| author | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 10:31:14 -0500 |
|---|---|---|
| committer | init current directory[i] <urbanjost@comcast.net> | 2020-12-04 10:31:14 -0500 |
| commit | c96e244379407fc566dadba57344c782d6fa3d32 (patch) | |
| tree | ad044371b71fcf310dfe11e8cc8c720f0a5d1b70 | |
| parent | 88389c926ee095e8fa35cbd37bfbc2e794b8b412 (diff) | |
| download | fpm-c96e244379407fc566dadba57344c782d6fa3d32.tar.gz fpm-c96e244379407fc566dadba57344c782d6fa3d32.zip | |
dos line terminators
| -rw-r--r-- | fpm/test/help_test/help_test.f90 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/fpm/test/help_test/help_test.f90 b/fpm/test/help_test/help_test.f90 index fd0a3c9..4aa625f 100644 --- a/fpm/test/help_test/help_test.f90 +++ b/fpm/test/help_test/help_test.f90 @@ -226,6 +226,7 @@ integer :: position integer :: sz !!character(len=1),parameter :: nl=new_line('A') character(len=1),parameter :: nl=char(10) +character(len=1),parameter :: cr=char(13) lines=0 linelength=0 length=0 @@ -248,19 +249,14 @@ 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 if(array(i).eq.nl)then linecount=linecount+1 position=1 + elseif(array(i).eq.cr)then elseif(linelength.ne.0)then table(linecount)(position:position)=array(i) position=position+1 |