subroutineobject_word

subroutine object_word(e, word)
    type(entity_t), intent(in) :: e                     !! the entity
    character(len=:), allocatable, intent(out) :: word  !! the word

    select case (e%kind)
    case (E_FILE); word = 'sourcefile'
    case (E_MODULE); word = 'module'
    case (E_SUBMODULE); word = 'submodule'
    case (E_PROGRAM); word = 'program'
    case (E_BLOCKDATA); word = 'blockdata'
    case (E_SUBROUTINE, E_FUNCTION, E_MODPROC); word = 'proc'
    case (E_INTERFACE); word = 'interface'
    case (E_TYPE); word = 'type'
    case (E_ENUM); word = 'enum'
    case (E_BOUNDPROC); word = 'boundprocedure'
    case (E_FINAL); word = 'finalproc'
    case (E_VARIABLE); word = 'variable'
    case (E_NAMELIST); word = 'namelist'
    case (E_COMMON); word = 'common'
    case default; word = ''
    end select
    if (is_procedure(e%kind) .and. e%iface /= IFACE_NONE) word = 'interface'
end subroutine object_word