diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-03-30 12:18:30 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-03-30 12:18:30 +0000 |
| commit | 13b5a6bf00a5f472a9629fd6fc018765d8f3fd31 (patch) | |
| tree | f0e4f60919adc3e1755507afa4ae6a4034d4a1de /gcc | |
| parent | 37ca383f9142a8c5ce8196c7b2f2d9aec2306bda (diff) | |
| download | gcc-13b5a6bf00a5f472a9629fd6fc018765d8f3fd31.zip gcc-13b5a6bf00a5f472a9629fd6fc018765d8f3fd31.tar.gz gcc-13b5a6bf00a5f472a9629fd6fc018765d8f3fd31.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 0bbefba..422107a 100644 --- 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 83e788a..0d5e3d7 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 |