anchor.diff:  #endif
   
       if (present(filename) .and. output_fileline) then
  -      log_tmp(i) = trim(log_tmp(i)) // trim(filename)
  +      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
  
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:     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
  