[Bug cobol/119885] libgcobol: SQRT wrong argument check

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119885

--- Comment #3 from GCC Commits  ---
The releases/gcc-15 branch has been updated by Robert Dubner
:

https://gcc.gnu.org/g:e7f1334ad02d4913346238aba58b0025ab7f455c

commit r15-10128-ge7f1334ad02d4913346238aba58b0025ab7f455c
Author: Robert Dubner 
Date:   Tue May 20 11:49:43 2025 -0400

cobol: sqrt(0) is not an ec-argument error. [PR119885]

libgcobol

PR cobol/119885
* intrinsic.cc: (__gg__sqrt): Change test from <= zero to < zero.

gcc/testsuite

* cobol.dg/group2/FUNCTION_SQRT__2_.cob: Testcase.
* cobol.dg/group2/FUNCTION_SQRT__2_.out: Known-good for the
testcase.

(cherry picked from commit d44beb132850a8ced1b0614e2724f18465b4a737)

[Bug cobol/119885] libgcobol: SQRT wrong argument check

[rdubner at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119885

Robert Dubner  changed:

   What|Removed |Added

 Resolution|--- |FIXED
 CC||rdubner at gcc dot gnu.org
   Assignee|unassigned at gcc dot gnu.org  |rdubner at gcc dot 
gnu.org
 Status|UNCONFIRMED |RESOLVED

--- Comment #2 from Robert Dubner  ---
Fixed by changing

if( value <= GCOB_FP128_LITERAL(0.0) )

to

if( value < GCOB_FP128_LITERAL(0.0) )

[Bug cobol/119885] libgcobol: SQRT wrong argument check

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119885

--- Comment #1 from GCC Commits  ---
The master branch has been updated by Robert Dubner :

https://gcc.gnu.org/g:d44beb132850a8ced1b0614e2724f18465b4a737

commit r16-761-gd44beb132850a8ced1b0614e2724f18465b4a737
Author: Robert Dubner 
Date:   Tue May 20 11:49:43 2025 -0400

cobol: sqrt(0) is not an ec-argument error. [PR119885]

libgcobol

PR cobol/119885
* intrinsic.cc: (__gg__sqrt): Change test from <= zero to < zero.

gcc/testsuite

* cobol.dg/group2/FUNCTION_SQRT__2_.cob: Testcase.
* cobol.dg/group2/FUNCTION_SQRT__2_.out: Known-good for the
testcase.