diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-19 12:22:39 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-19 12:22:39 +0000 |
| commit | 9e23c1aa0d4f08d859104fa56d12155d874f06bb (patch) | |
| tree | ce01b7542749375d7729d24234e61b9aff0992a5 /gcc/fortran | |
| parent | 425d348e941775a62c00c07dcb862880f200c8a8 (diff) | |
| download | gcc-9e23c1aa0d4f08d859104fa56d12155d874f06bb.zip gcc-9e23c1aa0d4f08d859104fa56d12155d874f06bb.tar.gz gcc-9e23c1aa0d4f08d859104fa56d12155d874f06bb.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ffbc9c5..3b1617e 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 e094a62..8c1c6b3 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) |