functiondisplay_lengthpureprivate
pure integer function display_length(e)
Length of the result of display_name.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| e | type(entity_t) | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| display_length | integer |
Calls
Source
Show the code
pure integer function display_length(e)
type(entity_t), intent(in) :: e !! the entity
display_length = len(e%name)
if (e%kind == E_FILE) display_length = len(e%name) - last_separator(e%name)
end function display_length