re PR fortran/85130 (Substrings out of range are not rejected)

2018-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/85130
	* gfortran.dg/substr_6.f90: Remove illegal test for
	out-of-bounds substring.

From-SVN: r258976

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0bbefba5e2100a909518fa81e92953bb2ba693c0..422107aadc9cffb4069454512d92ac5751e574f2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2018-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/85130
+       * gfortran.dg/substr_6.f90: Remove illegal test for
+       out-of-bounds substring.
+
 2017-03-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/85111

diff --git a/gcc/testsuite/gfortran.dg/substr_6.f90 b/gcc/testsuite/gfortran.dg/substr_6.f90
index 83e788a55a61f8c4d5029945287fa0bdcc9b152d..0d5e3d75e88c000d65a28ba3fae377df251180d5 100644 (file)
--- 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