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 37f1d6c commit a68430aCopy full SHA for a68430a
src/stdlib_ascii.f90
@@ -144,7 +144,8 @@ pure logical function is_graphical(c)
144
pure logical function is_printable(c)
145
character(len=1), intent(in) :: c !! The character to test.
146
integer :: ic
147
- ic = iachar(c) ! '~'
+ ic = iachar(c)
148
+ !The character is printable if it's between ' ' and '~' in the ASCII table
149
is_printable = ic >= iachar(' ') .and. ic <= int(z'7E')
150
end function
151
0 commit comments