OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/90563 (Out of bounds error when compiling with -Wextra) 

2013-08-13  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/90563
	* gfortran.dg/do_subsript_5.f90: Correct test.

From-SVN: r274396
This commit is contained in:
Thomas Koenig 2019-08-13 18:49:02 +00:00
parent 35ca2d4ea7
commit 20ac6454c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/gfortran.dg/do_subscript_5.f90
View File

@ -1,4 +1,5 @@
! { dg-do compile }
! { dg-additional-options "-Wdo-subscript" }
! PR 90563 - this used to be rejected, wrongly
! Original test case by Tobias Neumann
program test
@ -9,9 +10,11 @@ program test
p = 0.0
do j=1,6
! The following warnings are actually bogus, but we are not yet
! clever enough to suppress them.
do j=1,6 ! { dg-warning "out of bounds" }
if (j<5) then
p(j) = p(swap(j))
p(j) = p(swap(j)) ! { dg-warning "out of bounds" }
endif
enddo
end program