anchor.diff:      integer                         :: fn_len  !< Add extra spaces after part i
       integer       :: i,j !< The counter for the different parts
       character(4)  :: linenum_lj ! left-justified line number
  +    character(len=50) :: basename !< Basename stripped from filename
   
       logical :: show_colors = .false.
       i = 1
  
positive.code:       write(log_datetime, '(a,"/",a,"/",a," ")') date(1:4), date(5:6), date(7:8)
      endif
    end function log_datetime
  
    !> Check the command-line arguments to set the default logging level
    !> and color settings.
  
negative.code: #endif
  
      if (present(filename) .and. output_fileline) then
        call strip_path(filename, basename)
        log_tmp(i) = trim(log_tmp(i)) // trim(basename)
        if (present(linenum)) then
          ! Left-justify the line number and cap it to 4 characters
          write(linenum_lj, '(i4)') linenum
  