From: Thomas Koenig Date: Tue, 15 Jan 2019 22:20:26 +0000 (+0000) Subject: re PR fortran/43136 (Excess copy-in/copy-out with character argument) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=37879e01616f2031866ddbbeff5f30e562e7baac;p=gcc.git re PR fortran/43136 (Excess copy-in/copy-out with character argument) 2019-01-15 Thomas Koenig 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 PR fortran/43136 * gfortran.dg/actual_array_substr_3.f90: New test. From-SVN: r267954 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 574f50a4a1e..0d04224a71b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,6 @@ 2019-01-15 Thomas Koenig - 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 9c9299e074c..ec8a0c18c70 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,6 @@ 2019-01-15 Thomas Koenig - PR fortran/43072 + PR fortran/43136 * gfortran.dg/actual_array_substr_3.f90: New test. 2019-01-15 Steven G. Kargl