* libgcobol.cc (__gg__float64_from_128): Mark literal as float128
literal.
---
libgcobol/libgcobol.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index 1d4cdf849cb..07d4e8ba9fc 100644
--- a/libgcobol/libgcobol.cc
+++ b/libgcobol/libgcobol.cc
@@ -11708,7 +11708,7 @@ __gg__float64_from_128( cblc_field_t *dest,
// _Float128 value = *(_Float128*)(source->data+source_offset);
GCOB_FP128 value;
memcpy(&value, source->data+source_offset, 16);
- if( FP128_FUNC(fabs)(value) > 1.7976931348623157E308 )
+ if( FP128_FUNC(fabs)(value) > GCOB_FP128_LITERAL(1.7976931348623157E308) )
{
retval = 1;
}
--
2.49.0
--
Andreas Schwab, SUSE Labs, [email protected]
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE 1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."
