diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-01-15 22:20:26 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-01-15 22:20:26 +0000 |
| commit | 37879e01616f2031866ddbbeff5f30e562e7baac (patch) | |
| tree | a7826e0b0d83f220696f41102f452c0033867539 | |
| parent | 0335cc372c9849c61b9a5583655820d88ecf829e (diff) | |
| download | gcc-37879e01616f2031866ddbbeff5f30e562e7baac.zip gcc-37879e01616f2031866ddbbeff5f30e562e7baac.tar.gz gcc-37879e01616f2031866ddbbeff5f30e562e7baac.tar.bz2 | |
re PR fortran/43136 (Excess copy-in/copy-out with character argument)
2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/43136
* resolve.c (resolve_array_ref): Add equal_length argument; set it
if the length of the substring equals that of the orignal
variable.
(resolve_ref): Remove the substring if it is equal in length to
the original variable, unless it is an EXPR_SUBSTRING).
2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/43136
* gfortran.dg/actual_array_substr_3.f90: New test.
From-SVN: r267954
| -rw-r--r-- | gcc/fortran/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 574f50a..0d04224 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,6 @@ 2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> - PR fortran/43072 + PR fortran/43136 * resolve.c (resolve_array_ref): Add equal_length argument; set it if the length of the substring equals that of the orignal variable. diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9c9299e..ec8a0c1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,6 @@ 2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> - PR fortran/43072 + PR fortran/43136 * gfortran.dg/actual_array_substr_3.f90: New test. 2019-01-15 Steven G. Kargl <kargl@gcc.gnu.org> |