Skip to content

Commit 06dd2e4

Browse files
committed
Merge branch 'logger_fix' into level_logger
2 parents a220e5b + 01ba21f commit 06dd2e4

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

src/stdlib_logger.f90

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -457,10 +457,12 @@ pure subroutine configuration( self, add_blank_line, indent, level, &
457457
if ( present(level) ) level = self % level
458458
if ( present(max_width) ) max_width = self % max_width
459459
if ( present(time_stamp) ) time_stamp = self % time_stamp
460-
if ( present(log_units) .and. self % units .gt. 0 ) then
461-
log_units = self % log_units(1:self % units)
462-
else
463-
allocate(log_units(0))
460+
if ( present(log_units) ) then
461+
if ( self % units .gt. 0 ) then
462+
log_units = self % log_units(1:self % units)
463+
else
464+
allocate(log_units(0))
465+
end if
464466
end if
465467

466468
end subroutine configuration

0 commit comments

Comments
 (0)