From: Andreas Schwab <schwab@suse.de>
Date: Mon, 14 Apr 2025 12:20:08 +0000 (+0200)
Subject: libgcobol: Add missing float128 suffix
X-Git-Tag: basepoints/gcc-16~121
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6518799b2dfe8cf6dd7afa96041c5842bb4b9a49;p=thirdparty%2Fgcc.git

libgcobol: Add missing float128 suffix

	* libgcobol.cc (__gg__float64_from_128): Mark literal as float128
	literal.
---

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;
     }