functionhas_markpureprivate
pure logical function has_mark(c, mark)
True if comment c starts with ! and doc marker mark.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| c | character(len=*) | in | the comment | |
| mark | character(len=*) | in | the marker |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| has_mark | logical |
Source
Show the code
pure logical function has_mark(c, mark)
character(len=*), intent(in) :: c !! the comment
character(len=*), intent(in) :: mark !! the marker
has_mark = .false.
if (len(mark) == 0 .or. len(c) < 1 + len(mark)) return
has_mark = c(2:1 + len(mark)) == mark
end function has_mark