[flang-commits] [flang] 6bcdde2 - [flang][runtime] Fix KIND=16 real/complex component I/O

[Peter Klausler via flang-commits]

Author: Peter Klausler
Date: 2022-04-25T11:18:21-07:00
New Revision: 6bcdde2334bdad99a9e38fe739cdc76e63c00f59

URL: https://github.com/llvm/llvm-project/commit/6bcdde2334bdad99a9e38fe739cdc76e63c00f59
DIFF: https://github.com/llvm/llvm-project/commit/6bcdde2334bdad99a9e38fe739cdc76e63c00f59.diff

LOG: [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

Added: 
    

Modified: 
    flang/runtime/type-code.cpp

Removed: 
    


################################################################################
diff  --git a/flang/runtime/type-code.cpp b/flang/runtime/type-code.cpp
index bfa6416899e3f..b082c689ee207 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: