From 6bcdde2334bdad99a9e38fe739cdc76e63c00f59 Mon Sep 17 00:00:00 2001 From: Peter Klausler Date: Sat, 23 Apr 2022 10:15:02 -0700 Subject: [PATCH] [flang][runtime] Fix KIND=16 real/complex component I/O Don't treat KIND=16 as 80-bit extended floating-point any more on x86. Differential Revision: https://reviews.llvm.org/D124400 --- flang/runtime/type-code.cpp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/flang/runtime/type-code.cpp b/flang/runtime/type-code.cpp index bfa6416..b082c68 100644 --- a/flang/runtime/type-code.cpp +++ b/flang/runtime/type-code.cpp @@ -134,11 +134,7 @@ TypeCode::GetCategoryAndKind() const { case CFI_type_extended_double: return std::make_pair(TypeCategory::Real, 10); case CFI_type_long_double: -#if __x86_64__ - return std::make_pair(TypeCategory::Real, 10); -#else return std::make_pair(TypeCategory::Real, 16); -#endif case CFI_type_float128: return std::make_pair(TypeCategory::Real, 16); case CFI_type_half_float_Complex: @@ -152,11 +148,7 @@ TypeCode::GetCategoryAndKind() const { case CFI_type_extended_double_Complex: return std::make_pair(TypeCategory::Complex, 10); case CFI_type_long_double_Complex: -#if __x86_64__ - return std::make_pair(TypeCategory::Complex, 10); -#else return std::make_pair(TypeCategory::Complex, 16); -#endif case CFI_type_float128_Complex: return std::make_pair(TypeCategory::Complex, 16); case CFI_type_char: -- 2.7.4