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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267954 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 574f50a4a1e5411adcbc509e2c2d133b1859d08e..0d04224a71b0a3610ebfd4b6e2829f8fb5a50be8 100644 (file)
--- 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 9c9299e074ca07c6afa45784128967514f330254..ec8a0c18c70edf6b86f65b2a1ce0218577bf0593 100644 (file)
--- 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>