diff options
| -rw-r--r-- | fpm/src/fpm_strings.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fpm/src/fpm_strings.f90 b/fpm/src/fpm_strings.f90 index 8425505..44a3510 100644 --- a/fpm/src/fpm_strings.f90 +++ b/fpm/src/fpm_strings.f90 @@ -26,7 +26,7 @@ end interface str_ends_with contains -logical function str_ends_with_str(s, e) result(r) +pure logical function str_ends_with_str(s, e) result(r) character(*), intent(in) :: s, e integer :: n1, n2 n1 = len(s)-len(e)+1 @@ -38,7 +38,7 @@ logical function str_ends_with_str(s, e) result(r) end if end function str_ends_with_str -logical function str_ends_with_any(s, e) result(r) +pure logical function str_ends_with_any(s, e) result(r) character(*), intent(in) :: s character(*), intent(in) :: e(:) |