aboutsummaryrefslogtreecommitdiff
path: root/flang/lib/Parser/token-sequence.cpp
diff options
context:
space:
mode:
authorPeter Klausler <pklausler@nvidia.com>2025-04-09 12:30:05 -0700
committerGitHub <noreply@github.com>2025-04-09 12:30:05 -0700
commitbe133ff4c44060e18a9c8a5e55c32d242007c8d1 (patch)
treea9b845b66a102f27822efefc904e93bafcaaed09 /flang/lib/Parser/token-sequence.cpp
parentb92f4d4c3315e4632a2e6fc425583e07d57234ca (diff)
downloadllvm-be133ff4c44060e18a9c8a5e55c32d242007c8d1.zip
llvm-be133ff4c44060e18a9c8a5e55c32d242007c8d1.tar.gz
llvm-be133ff4c44060e18a9c8a5e55c32d242007c8d1.tar.bz2
[flang] Fix preprocessor regression (#134405)
For numeric kind suffixes like 1_foo, the preprocessor should be able to perform macro replacement for macros named either "_foo" or "foo". Fixes https://github.com/llvm/llvm-project/issues/133399.
Diffstat (limited to 'flang/lib/Parser/token-sequence.cpp')
-rw-r--r--flang/lib/Parser/token-sequence.cpp2
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