diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 12:22:39 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-19 12:22:39 +0000 |
| commit | 2d0b331430d02c2c4c789c9453c2912f61a566ac (patch) | |
| tree | ce01b7542749375d7729d24234e61b9aff0992a5 /gcc/fortran | |
| parent | 397b15121278a289b514bd1fb204a35d6d529abd (diff) | |
| download | gcc-2d0b331430d02c2c4c789c9453c2912f61a566ac.tar.gz | |
* simplify.c (gfc_simplify_dble, gfc_simplify_real): Initialize
result variable to avoid warnings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135528 138bc75d-0d04-0410-961f-82ee72b054a4
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 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) |