From a96be85278e43ad48459ce943d622ca90be5b73c Mon Sep 17 00:00:00 2001 From: tkoenig Date: Tue, 15 Jan 2019 22:20:26 +0000 Subject: [PATCH] 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267954 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 2 +- gcc/testsuite/ChangeLog | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 574f50a4a1e5..0d04224a71b0 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 9c9299e074ca..ec8a0c18c70e 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 -- 2.47.2