On Mon, Apr 14, 2025 at 02:32:12PM +0200, Andreas Schwab wrote:
> * 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
LGTM.
Jakub
