functiontrim_rightpureprivate
pure character(len=trim_length(text)) function trim_right(text) result(out)
text without blanks at its end.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | in | the text |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| out | character(len=trim_length(text)) | private |
Source
Show the code
pure function trim_right(text) result(out)
character(len=*), intent(in) :: text !! the text
character(len=trim_length(text)) :: out
out = text(:len(out))
end function trim_right