subroutineadd_statspure

pure subroutine add_stats(total, item)
    type(file_stats_t), intent(inout) :: total  !! the total
    type(file_stats_t), intent(in) :: item      !! what to add

    total%lines = total%lines + item%lines
    total%code = total%code + item%code
    total%comments = total%comments + item%comments
    total%blank = total%blank + item%blank
    total%procedures = total%procedures + item%procedures
    total%bytes = total%bytes + item%bytes
end subroutine add_stats