summaryrefslogtreecommitdiff
path: root/flang-rt/lib/runtime/type-code.cpp
diff options
context:
space:
mode:
authorCarlos Seo <carlos.seo@linaro.org>2025-11-20 11:34:43 -0300
committerGitHub <noreply@github.com>2025-11-20 11:34:43 -0300
commita9a14d64d20bfb28abdd7a63cac459b5f6b5ee91 (patch)
tree682bade80b3b62b6d804af8d0f8242f782bda7d7 /flang-rt/lib/runtime/type-code.cpp
parent0e8222b84b60c022b2cee308f79a185a943ff514 (diff)
[flang-rt] Fix TypeCategory for quad-precision COMPLEX (#168090)
Modify the TypeCategory for quad-precision COMPLEX to CFI_type_float128_Complex so it matches the TypeCode returned by SELECT TYPE lowering. Fixes #134565
Diffstat (limited to 'flang-rt/lib/runtime/type-code.cpp')
-rw-r--r--flang-rt/lib/runtime/type-code.cpp2
1 files changed, 1 insertions, 1 deletions
diff --git a/flang-rt/lib/runtime/type-code.cpp b/flang-rt/lib/runtime/type-code.cpp
index 9ecde012e7d1..68093decbb34 100644
--- a/flang-rt/lib/runtime/type-code.cpp
+++ b/flang-rt/lib/runtime/type-code.cpp
@@ -92,7 +92,7 @@ RT_API_ATTRS TypeCode::TypeCode(TypeCategory f, int kind) {
raw_ = CFI_type_extended_double_Complex;
break;
case 16:
- raw_ = CFI_type_long_double_Complex;
+ raw_ = CFI_type_float128_Complex;
break;
}
break;