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/simplify.c | |
| 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/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
1 files changed, 2 insertions, 2 deletions
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) |