Skip to content

Commit 745f62e

Browse files
aman-godaraawvwgk
andauthored
extended word identifying from is_alpha to is_alphanum
Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
1 parent 280ac09 commit 745f62e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_ascii.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -303,7 +303,7 @@ contains
303303

304304
capitalize_switch = .true.
305305
do i = 1, len(string)
306-
if (is_alpha(string(i:i))) then
306+
if (is_alphanum(string(i:i))) then
307307
if (capitalize_switch) then
308308
title_string(i:i) = char_to_upper(string(i:i))
309309
capitalize_switch = .false.

0 commit comments

Comments
 (0)