functiontrimmed_endpureprivate
pure character(len=max(0,verify(text,NL,back=.true.))) function trimmed_end(text) result(out)
text without trailing line feeds.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| text | character(len=*) | in | the text |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| out | character(len=max(0,verify(text,NL,back=.true.))) | private |
Source
Show the code
pure function trimmed_end(text) result(out)
character(len=*), intent(in) :: text !! the text
character(len=max(0, verify(text, NL, back=.true.))) :: out
out = text
end function trimmed_end