[flang-commits] [flang] [llvm] [flang-rt] Split large unformatted sequential records into subrecords (PR #213003)

[via flang-commits]

================
@@ -101,6 +101,61 @@ static inline RT_API_ATTRS void SwapEndianness(
   }
 }
 
+static constexpr std::size_t kRecMarkSize{4};
+static constexpr std::int32_t kMaxSubrecPayload{0x7fffffff - 8};
+
+static inline RT_API_ATTRS std::size_t SubrecordPayloadBytes(
+    std::int32_t marker) {
+  return static_cast<std::size_t>(marker < 0 ? -marker : marker);
----------------
ejose02 wrote:

Fixed: negate the marker in 64-bit in SubrecordPayloadBytes.



https://github.com/llvm/llvm-project/pull/213003