We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0b60a39 commit 56740fcCopy full SHA for 56740fc
src/stdlib_ascii.f90
@@ -151,7 +151,9 @@ pure logical function is_printable(c)
151
!> Checks whether `c` is a lowercase ASCII letter (a .. z).
152
pure logical function is_lower(c)
153
character(len=1), intent(in) :: c !! The character to test.
154
- is_lower = (c >= 'a') .and. (c <= 'z')
+ integer :: ic
155
+ ic = iachar(c)
156
+ is_lower = (ic >= iachar('a')) .and. (ic <= iachar('z'))
157
end function
158
159
!> Checks whether `c` is an uppercase ASCII letter (A .. Z).
0 commit comments