ends_with(3f) - [M_strings:COMPARE] test if string ends with specified
suffix(es)
(LICENSE:PD)
function ends_with(source_string,suffix)
or
function ends_with(source_string,[suffix])
character(len=*),intent(in) :: source_string
character(len=*),intent(in) :: suffix(..)
logical :: ends_with
SOURCE_STRING string to tokenize
SUFFIX list of separator strings. May be scalar or an array.
Trailing spaces are ignored.
ENDS_WITH returns .TRUE. if one of the suffix match the end
of SOURCE_STRING.
Sample program:
program demo_ends_with
use M_strings, only : ends_with
use, intrinsic :: iso_fortran_env, only : stdout=>output_unit
implicit none
write(stdout,*)ends_with('prog.a',['.o','.i','.s'])
write(stdout,*)ends_with('prog.f90',['.F90','.f90','.f ','.F '])
write(stdout,*)ends_with('prog.pdf','.pdf')
write(stdout,*)ends_with('prog.doc','.txt')
end program demo_ends_with
Results:
F
T
T
F
John S. Urban
Public Domain
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | string | |||
character, | intent(in) | :: | ending |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | string | |||
character, | intent(in) | :: | endings(:) |