diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2012-06-07 14:33:51 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2012-06-07 14:33:51 +0000 |
| commit | 1acbf7a1bfb1bddb24ea3fc3710f0ddbb097aa72 (patch) | |
| tree | ac735e58e700b48825a6f46d36538fddc78a11b0 /gcc/fortran/frontend-passes.c | |
| parent | 17c4f786f5e5933b39604bf3ed13368b89d76edc (diff) | |
| download | gcc-1acbf7a1bfb1bddb24ea3fc3710f0ddbb097aa72.zip gcc-1acbf7a1bfb1bddb24ea3fc3710f0ddbb097aa72.tar.gz gcc-1acbf7a1bfb1bddb24ea3fc3710f0ddbb097aa72.tar.bz2 | |
re PR fortran/52861 ((missed optimisation) missed transformation to memset with -O3)
2012-06-07 Thomas König <tkoenig@gcc.gnu.org>
PR fortran/52861
* frontend-passes.c (optimize_assignment): Don't set the
length of an empty string for deferred-length character
variables.
2012-06-07 Thomas König <tkoenig@gcc.gnu.org>
PR fortran/52861
* gfortran.dg/string_assign_2.f90: New test case.
From-SVN: r188305
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 4fd24c2..bcc1bdc 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -740,8 +740,10 @@ optimize_assignment (gfc_code * c) /* Optimize away a = trim(b), where a is a character variable. */ remove_trim (rhs); - /* Replace a = ' ' by a = '' to optimize away a memcpy. */ - if (empty_string(rhs)) + /* Replace a = ' ' by a = '' to optimize away a memcpy, but only + for strings with non-deferred length (otherwise we would + reallocate the length. */ + if (empty_string(rhs) && ! lhs->ts.deferred) rhs->value.character.length = 0; } |