simplify.c (gfc_simplify_dble, [...]): Initialize result variable to avoid warnings.

	* simplify.c (gfc_simplify_dble, gfc_simplify_real): Initialize
	result variable to avoid warnings.

From-SVN: r135528

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ffbc9c53f20598b38e1a845c424fad29927a12a1..3b1617eed65baf7e02c3ddda01cf02ded000bbe1 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * simplify.c (gfc_simplify_dble, gfc_simplify_real): Initialize
+       result variable to avoid warnings.
+
 2008-05-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * intrinsic.c (char_conversions, ncharconv): New static variables.

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index e094a62e33fade39a489af7a4055c687ec611121..8c1c6b349e7c1c0cb6c827694e5ca88bcf12b5a9 100644 (file)
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -1094,7 +1094,7 @@ gfc_simplify_dcmplx (gfc_expr *x, gfc_expr *y)
 gfc_expr *
 gfc_simplify_dble (gfc_expr *e)
 {
-  gfc_expr *result;
+  gfc_expr *result = NULL;
 
   if (e->expr_type != EXPR_CONSTANT)
     return NULL;
@@ -3186,7 +3186,7 @@ gfc_simplify_range (gfc_expr *e)
 gfc_expr *
 gfc_simplify_real (gfc_expr *e, gfc_expr *k)
 {
-  gfc_expr *result;
+  gfc_expr *result = NULL;
   int kind;
 
   if (e->ts.type == BT_COMPLEX)