From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 15 Sep 2017 21:30:40 +0000 (+0200)
Subject: re PR libquadmath/65757 (gfortran gives incorrect result for anint with real*16 argument)
X-Git-Tag: releases/gcc-6.5.0~795
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5be796af28de69adcc4cfb2052bbcfc77a125302;p=thirdparty%2Fgcc.git

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: r252853
---

diff --git a/libquadmath/ChangeLog b/libquadmath/ChangeLog
index a514ff15f250..e0354f07a3b6 100644
--- a/libquadmath/ChangeLog
+++ b/libquadmath/ChangeLog
@@ -1,3 +1,8 @@
+2017-09-15  Jakub Jelinek  <jakub@redhat.com>
+
+	PR libquadmath/65757
+	* math/roundq.c: Cherry-pick upstream glibc 2015-04-28 change.
+
 2017-07-04  Release Manager
 
 	* GCC 6.4.0 released.
diff --git a/libquadmath/math/roundq.c b/libquadmath/math/roundq.c
index 7c9d640e9332..adcb94a8fafe 100644
--- 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)
 	{