[Bug fortran/32083] [Regression 4.3] bug in transfer integer->real->integer

[burnus at gcc dot gnu dot org]

------- Comment #3 from burnus at gcc dot gnu dot org  2007-05-26 21:11 -------
Found it finally:

Index: real.c
===================================================================
--- real.c      (revision 125096)
+++ real.c      (working copy)
@@ -4746,7 +4746,7 @@
   /* 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;
     }


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |burnus at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2007-05-25 11:45:00         |2007-05-26 21:11:18
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32083