2007-05-26 Tobias Burnus <burnus@net-b.de>

	PR fortran/32083
	* real.c (mpfr_from_real): Fix sign of -Inf.

2007-05-26  Tobias Burnus  <burnus@net-b.de>

	PR fortran/32083
	* gfortran.dg/transfer_simplify_3.f90: New.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125108 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 8edffc7..4df2a05 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-27  Tobias Burnus  <burnus@net-b.de>
+
+       PR middle-end/32083
+       * real.c (mpfr_from_real): Fix sign of -Inf.
+
 2007-05-27  H.J. Lu  <hongjiu.lu@intel.com>
 
        * tree-vect-transform.c (vectorizable_conversion): Initialize

diff --git a/gcc/real.c b/gcc/real.c
index f5d842e..867fdc7 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -4746,7 +4746,7 @@ mpfr_from_real (mpfr_ptr m, const REAL_VALUE_TYPE *r, mp_rnd_t rndmode)
   /* Take care of Infinity and NaN.  */
   if (r->cl == rvc_inf)
     {
-      mpfr_set_inf (m, r->sign);
+      mpfr_set_inf (m, r->sign == 1 ? -1 : 1);
       return;
     }
   

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1aa92c1..29b1eac 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-27  Tobias Burnus  <burnus@net-b.de>
+
+       PR middle-end/32083
+       * gfortran.dg/transfer_simplify_3.f90: New.
+
 2007-05-26  Uros Bizjak  <ubizjak@gmail.com>
 
        PR target/32065