diff options
Diffstat (limited to 'flang/lib/Parser/token-sequence.cpp')
| -rw-r--r-- | flang/lib/Parser/token-sequence.cpp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flang/lib/Parser/token-sequence.cpp b/flang/lib/Parser/token-sequence.cpp index fb1ea59..c0655f6 100644 --- a/flang/lib/Parser/token-sequence.cpp +++ b/flang/lib/Parser/token-sequence.cpp @@ -187,7 +187,7 @@ TokenSequence &TokenSequence::ToLowerCase() { } else if (*p == 'h' || *p == 'H') { // Hollerith *p = 'h'; - } else if (*p == '_') { + } else if (*p == '_' && p + 1 < limit && (p[1] == '"' || p[1] == '\'')) { // kind-prefixed character literal (e.g., 1_"ABC") } else { // exponent |