Skip to content

Commit 5856e4f

Browse files
authored
Merge pull request #242 from jvdp1/logger1
logger: avoid trailing spaces when writing line 2+
2 parents 3733ae3 + 0f2c0a9 commit 5856e4f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_logger.f90

+2-2
Original file line numberDiff line numberDiff line change
@@ -597,7 +597,7 @@ subroutine format_subsequent_line()
597597
return
598598
else
599599
write( unit, '(a)', err=999, iostat=iostat, iomsg=iomsg ) &
600-
string(count+1:index)
600+
string(count+1:index-1)
601601
count = index
602602
remain = length - count
603603
return
@@ -632,7 +632,7 @@ subroutine indent_format_subsequent_line()
632632
return
633633
else
634634
write( unit, '(a)', err=999, iostat=iostat, iomsg=iomsg ) &
635-
col_indent // string(count+1:index)
635+
col_indent // string(count+1:index-1)
636636
count = index
637637
remain = length - count
638638
return

0 commit comments

Comments
 (0)