This is an archive of the discontinued LLVM Phabricator instance.

Differential D124400

[flang][runtime] Fix KIND=16 real/complex component I/O
ClosedPublic

Authored by klausler on Apr 25 2022, 9:43 AM.

Details

Reviewers
vdonaldson
Commits
rG6bcdde2334bd: [flang][runtime] Fix KIND=16 real/complex component I/O
Summary

Don't treat KIND=16 as 80-bit extended floating-point any more on x86.

Diff Detail

Event Timeline

klausler created this revision.Apr 25 2022, 9:43 AM
Herald added a project: Restricted Project. · View Herald TranscriptApr 25 2022, 9:43 AM
Herald added subscribers: jdoerfert, pengfei. · View Herald Transcript
klausler requested review of this revision.Apr 25 2022, 9:43 AM
vdonaldson accepted this revision.Apr 25 2022, 10:10 AM
This revision is now accepted and ready to land.Apr 25 2022, 10:10 AM
Harbormaster completed remote builds in B161193: Diff 424944.Apr 25 2022, 10:56 AM
Closed by commit rG6bcdde2334bd: [flang][runtime] Fix KIND=16 real/complex component I/O (authored by klausler). · Explain WhyApr 25 2022, 11:18 AM
This revision was automatically updated to reflect the committed changes.
klausler added a commit: rG6bcdde2334bd: [flang][runtime] Fix KIND=16 real/complex component I/O.

Revision Contents

PathSize
flang/
runtime/
8 lines

Diff 424983

flang/runtime/type-code.cpp

Show First 20 Lines • Show All 128 Lines • ▼ Show 20 Lines case CFI_type_bfloat:
return std::make_pair(TypeCategory::Real, 3); return std::make_pair(TypeCategory::Real, 3);
case CFI_type_float: case CFI_type_float:
return std::make_pair(TypeCategory::Real, 4); return std::make_pair(TypeCategory::Real, 4);
case CFI_type_double: case CFI_type_double:
return std::make_pair(TypeCategory::Real, 8); return std::make_pair(TypeCategory::Real, 8);
case CFI_type_extended_double: case CFI_type_extended_double:
return std::make_pair(TypeCategory::Real, 10); return std::make_pair(TypeCategory::Real, 10);
case CFI_type_long_double: case CFI_type_long_double:
#if __x86_64__
return std::make_pair(TypeCategory::Real, 10);
#else
return std::make_pair(TypeCategory::Real, 16); return std::make_pair(TypeCategory::Real, 16);
#endif
case CFI_type_float128: case CFI_type_float128:
return std::make_pair(TypeCategory::Real, 16); return std::make_pair(TypeCategory::Real, 16);
case CFI_type_half_float_Complex: case CFI_type_half_float_Complex:
return std::make_pair(TypeCategory::Complex, 2); return std::make_pair(TypeCategory::Complex, 2);
case CFI_type_bfloat_Complex: case CFI_type_bfloat_Complex:
return std::make_pair(TypeCategory::Complex, 3); return std::make_pair(TypeCategory::Complex, 3);
case CFI_type_float_Complex: case CFI_type_float_Complex:
return std::make_pair(TypeCategory::Complex, 4); return std::make_pair(TypeCategory::Complex, 4);
case CFI_type_double_Complex: case CFI_type_double_Complex:
return std::make_pair(TypeCategory::Complex, 8); return std::make_pair(TypeCategory::Complex, 8);
case CFI_type_extended_double_Complex: case CFI_type_extended_double_Complex:
return std::make_pair(TypeCategory::Complex, 10); return std::make_pair(TypeCategory::Complex, 10);
case CFI_type_long_double_Complex: case CFI_type_long_double_Complex:
#if __x86_64__
return std::make_pair(TypeCategory::Complex, 10);
#else
return std::make_pair(TypeCategory::Complex, 16); return std::make_pair(TypeCategory::Complex, 16);
#endif
case CFI_type_float128_Complex: case CFI_type_float128_Complex:
return std::make_pair(TypeCategory::Complex, 16); return std::make_pair(TypeCategory::Complex, 16);
case CFI_type_char: case CFI_type_char:
return std::make_pair(TypeCategory::Character, 1); return std::make_pair(TypeCategory::Character, 1);
case CFI_type_char16_t: case CFI_type_char16_t:
return std::make_pair(TypeCategory::Character, 2); return std::make_pair(TypeCategory::Character, 2);
case CFI_type_char32_t: case CFI_type_char32_t:
return std::make_pair(TypeCategory::Character, 4); return std::make_pair(TypeCategory::Character, 4);
Show All 17 Lines