git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Thomas Koenig 2019-01-15 22:20:26 +00:00
parent 0335cc372c
commit 37879e0161
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/fortran/ChangeLog
View File

@ -1,6 +1,6 @@
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.

2
gcc/testsuite/ChangeLog
View File

@ -1,6 +1,6 @@
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>