* simplify.c (gfc_simplify_rrspacing): Initialize and clear mpfr_t
variable.
* gfortran.dg/rrspacing_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114821
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-06-20 Steven G. Kargl <kargls@comcast.net>
+
+ * simplify.c (gfc_simplify_rrspacing): Initialize and clear mpfr_t
+ variable.
+
2006-06-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/25049
mpfr_init (absv);
mpfr_init (frac);
mpfr_init (pow2);
+ mpfr_init (exp);
mpfr_abs (absv, x->value.real, GFC_RND_MODE);
mpfr_log2 (log2, absv, GFC_RND_MODE);
mpfr_clear (absv);
mpfr_clear (frac);
mpfr_clear (pow2);
+ mpfr_clear (exp);
return range_check (result, "RRSPACING");
}
+2006-06-20 Steven G. Kargl <kargls@comcast.net>
+
+ * gfortran.dg/rrspacing_1.f90: New test.
+
+
2006-06-20 Volker Reichelt <reichelt@igpm.rwth-aachen.de>
PR c++/28052
--- /dev/null
+! { dg-do run }
+program m
+ integer i
+ real x,y
+ real, parameter :: a = -3.0
+ i = int(rrspacing(a))
+ if (i /= 12582912) call abort
+end program m