re PR middle-end/32083 (bug in transfer integer->real->integer)

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.

From-SVN: r125108

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 8edffc79fc77943750d859d43df151b7beb03560..4df2a050d37f2814ccbc4e70f118454f93c05f4e 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 f5d842e24b58f81fa712e649320ea07631ac06b3..867fdc70b037e29992dc6decc6d5795e1103e20c 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 1aa92c158e0cf4b64fc53e0b18146b8429a270de..29b1eac0db98e57b7ce9d8d1c1984ec4d49098c1 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