re PR libquadmath/65757 (gfortran gives incorrect result for anint with real*16 argument)

	PR libquadmath/65757
	* math/roundq.c: Cherry-pick upstream glibc 2015-04-28 change.

From-SVN: r252880

diff --git a/libquadmath/ChangeLog b/libquadmath/ChangeLog
index 45a160998b7153402994c78cd6c3eddb0f768379..a4411634383205c85acc1a26aa6dda6a32b16e6d 100644 (file)
--- a/libquadmath/ChangeLog
+++ b/libquadmath/ChangeLog
@@ -1,3 +1,8 @@
+2017-09-16  Jakub Jelinek  <jakub@redhat.com>
+
+       PR libquadmath/65757
+       * math/roundq.c: Cherry-pick upstream glibc 2015-04-28 change.
+
 2016-06-03  Release Manager
 
        * GCC 5.4.0 released.

diff --git a/libquadmath/math/roundq.c b/libquadmath/math/roundq.c
index 7c9d640e933291fe21801f550c7244b666601b69..adcb94a8fafe82719170cffb817c3cfcb34ff48e 100644 (file)
--- a/libquadmath/math/roundq.c
+++ b/libquadmath/math/roundq.c
@@ -1,5 +1,5 @@
 /* Round __float128 to integer away from zero.
-   Copyright (C) 1997, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1997-2017 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997 and
                  Jakub Jelinek <jj@ultra.linux.cz>, 1999.
@@ -32,7 +32,7 @@ roundq (__float128 x)
 
   GET_FLT128_WORDS64 (i0, i1, x);
   j0 = ((i0 >> 48) & 0x7fff) - 0x3fff;
-  if (j0 < 31)
+  if (j0 < 48)
     {
       if (j0 < 0)
        {