From ebf896b9e5412084b055ff7ed3712b441f738c07 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Fri, 30 Mar 2018 12:18:30 +0000 Subject: [PATCH] 2018-03-30 Thomas Koenig PR fortran/85130 * gfortran.dg/substr_6.f90: Remove illegal test for out-of-bounds substring. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@258976 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/substr_6.f90 | 2 -- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0bbefba5e21..422107aadc9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2018-03-30 Thomas Koenig + + PR fortran/85130 + * gfortran.dg/substr_6.f90: Remove illegal test for + out-of-bounds substring. + 2017-03-30 Thomas Koenig PR fortran/85111 diff --git a/gcc/testsuite/gfortran.dg/substr_6.f90 b/gcc/testsuite/gfortran.dg/substr_6.f90 index 83e788a55a6..0d5e3d75e88 100644 --- a/gcc/testsuite/gfortran.dg/substr_6.f90 +++ b/gcc/testsuite/gfortran.dg/substr_6.f90 @@ -6,8 +6,6 @@ CHARACTER(5), parameter :: c0(1) = (/ "123" // ACHAR(0) // "5" /) CHARACTER*5 c(1) CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /) -c = c0(1)(-5:-8) -if (c(1) /= " ") STOP 1 c = (/ c0(1)(1:5) /) do i=1,5 if (c(1)(i:i) /= c1(i)) STOP 2 -- 2.11.4.GIT