https://gcc.gnu.org/g:6518799b2dfe8cf6dd7afa96041c5842bb4b9a49

commit r15-9432-g6518799b2dfe8cf6dd7afa96041c5842bb4b9a49
Author: Andreas Schwab <sch...@suse.de>
Date:   Mon Apr 14 14:20:08 2025 +0200

    libgcobol: Add missing float128 suffix
    
            * libgcobol.cc (__gg__float64_from_128): Mark literal as float128
            literal.

Diff:
---
 libgcobol/libgcobol.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libgcobol/libgcobol.cc b/libgcobol/libgcobol.cc
index 1d4cdf849cbf..07d4e8ba9fc8 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;
     }

Reply via email to