diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-02-28 22:27:55 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2016-02-28 22:27:55 +0000 |
| commit | 7b201a88a3a939417df94dedcb766c9b949bf9be (patch) | |
| tree | 3d35470a54267e2095fb3c54fa21ede0e19a7513 /gcc/fortran | |
| parent | 3070e826ba08f0d2537916ec967cc38dd5c89e1e (diff) | |
| download | gcc-7b201a88a3a939417df94dedcb766c9b949bf9be.zip gcc-7b201a88a3a939417df94dedcb766c9b949bf9be.tar.gz gcc-7b201a88a3a939417df94dedcb766c9b949bf9be.tar.bz2 | |
re PR fortran/68147 (Potential incorrect code generation for string self-assignment)
2016-02-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68147
PR fortran/47674
* frontend-passes.c (realloc_string_callback): Don't set
walk_subtrees.
2016-02-28 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/68147
PR fortran/47674
* gfortran.dg/realloc_on_assign_26.f90: New test case.
From-SVN: r233797
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9d2c94b..54950be 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 2016-02-28 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/68147 + PR fortran/47674 + * frontend-passes.c (realloc_string_callback): Don't set + walk_subtrees. + +2016-02-28 Thomas Koenig <tkoenig@gcc.gnu.org> + * dump-parse-tree.c (show_code_node): Print association list of a block if present. Handle EXEC_END_BLOCK. diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 156ea2b..7eeb5a6 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -153,14 +153,13 @@ gfc_run_passes (gfc_namespace *ns) */ static int -realloc_string_callback (gfc_code **c, int *walk_subtrees, +realloc_string_callback (gfc_code **c, int *walk_subtrees ATTRIBUTE_UNUSED, void *data ATTRIBUTE_UNUSED) { gfc_expr *expr1, *expr2; gfc_code *co = *c; gfc_expr *n; - *walk_subtrees = 0; if (co->op != EXEC_ASSIGN) return 0; |