functionstrip_trailingpureprivate
pure character(len=len_trim(s)) function strip_trailing(s) result(t)
s without trailing whitespace.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| s | character(len=*) | in | the text |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| t | character(len=len_trim(s)) | private |
Source
Show the code
pure function strip_trailing(s) result(t)
character(len=*), intent(in) :: s !! the text
character(len=len_trim(s)) :: t
t = s
end function strip_trailing