From a9a14d64d20bfb28abdd7a63cac459b5f6b5ee91 Mon Sep 17 00:00:00 2001 From: Carlos Seo Date: Thu, 20 Nov 2025 11:34:43 -0300 Subject: [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 --- flang-rt/lib/runtime/type-code.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'flang-rt/lib/runtime/type-code.cpp') 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; -- cgit v1.2.3