procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
This commit is contained in:
Thomas Koenig 2018-03-30 12:18:30 +00:00
parent 37ca383f91
commit 13b5a6bf00
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -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

2
gcc/testsuite/gfortran.dg/substr_6.f90
View file

@ -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