Skip to content

Commit f7deccc

Browse files
author
Vandenplas, Jeremie
committed
logger2: corrections suggested by @wclodius2
1 parent dcd6b28 commit f7deccc

File tree

2 files changed

+2
-3
lines changed

2 files changed

+2
-3
lines changed

src/stdlib_logger.f90

+1-2
Original file line numberDiff line numberDiff line change
@@ -546,8 +546,7 @@ subroutine format_first_line()
546546

547547
if ( self % max_width == 0 .or. &
548548
( length <= self % max_width .and. &
549-
index( string(1:min(length, self % max_width)), new_line('a')) == 0 &
550-
)) then
549+
index( string(1:length), new_line('a')) == 0 ) ) then
551550
write( unit, '(a)', err=999, iostat=iostat, iomsg=iomsg ) &
552551
string(1:length)
553552
remain = 0

src/tests/logger/test_stdlib_logger.f90

+1-1
Original file line numberDiff line numberDiff line change
@@ -138,7 +138,7 @@ subroutine test_logging_configuration()
138138
'to OUTPUT_UNIT, unlimited in width, not preceded by ' // &
139139
'a blank line, then by a time stamp, then by MODULE % ' // &
140140
'PROCEDURE, be prefixed by INFO. ' // new_line('a') // &
141-
'This is a new line of the same log message.', &
141+
'This is a new line of the same log message.', &
142142
module = 'N/A', &
143143
procedure = 'TEST_STDLIB_LOGGER' )
144144

0 commit comments

Comments
 (0)