Skip to content

Commit 92cfe4c

Browse files
authored
Apply suggestions from code review
1 parent 42f60df commit 92cfe4c

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_logger.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1072,13 +1072,13 @@ subroutine log_message( self, message, module, procedure, prefix )
10721072
else
10731073
if ( self % add_blank_line ) then
10741074
do unit=1, self % units
1075-
write( output_unit, '(a)', err=999, iostat=iostat, &
1075+
write( self % log_units(unit), '(a)', err=999, iostat=iostat, &
10761076
iomsg=iomsg ) new_line('a') // &
10771077
self % buffer(1:self % len_buffer)
10781078
end do
10791079
else
10801080
do unit=1, self % units
1081-
write( output_unit, '(a)', err=999, iostat=iostat, &
1081+
write( self % log_units(unit), '(a)', err=999, iostat=iostat, &
10821082
iomsg=iomsg ) &
10831083
self % buffer(1:self % len_buffer)
10841084
end do

0 commit comments

Comments
 (0)