Commit 37879e01 by Thomas Koenig

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
parent 0335cc37
2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> 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 * resolve.c (resolve_array_ref): Add equal_length argument; set it
if the length of the substring equals that of the orignal if the length of the substring equals that of the orignal
variable. variable.
......
2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> 2019-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/43072 PR fortran/43136
* gfortran.dg/actual_array_substr_3.f90: New test. * gfortran.dg/actual_array_substr_3.f90: New test.
2019-01-15 Steven G. Kargl <kargl@gcc.gnu.org> 2019-01-15 Steven G. Kargl <kargl@gcc.gnu.org>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment