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

gcc/ChangeLog

+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

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;
     }
   

gcc/testsuite/ChangeLog

+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