From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Mon, 19 May 2008 12:22:39 +0000 (+0000)
Subject: simplify.c (gfc_simplify_dble, [...]): Initialize result variable to avoid warnings.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9e23c1aa0d4f08d859104fa56d12155d874f06bb;p=gcc.git

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 ffbc9c53f20..3b1617eed65 100644
--- 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 e094a62e33f..8c1c6b349e7 100644
--- 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)