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

bounds_check_7.f90: Adapted error message.

Browse Source 
2009-09-30  Dennis Wassel  <dennis.wassel@gmail.com>

	* gcc/testsuite/gfortran.dg/bounds_check_7.f90: Adapted error message.
	* gcc/testsuite/gfortran.dg/bounds_check_11.f90: Likewise.
	* gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90: Likewise.

From-SVN: r152356
This commit is contained in:
Dennis Wassel 2009-10-01 02:34:59 +00:00 committed by Jerry DeLisle
parent c6ec7cc699
commit ec30ab2c79
4 changed files with 9 additions and 3 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 @@
2009-09-30 Dennis Wassel <dennis.wassel@gmail.com>
* gcc/testsuite/gfortran.dg/bounds_check_7.f90: Adapted error message.
* gcc/testsuite/gfortran.dg/bounds_check_11.f90: Likewise.
* gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90: Likewise.
2009-09-30 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/select_type_4.f90: New test.

2
gcc/testsuite/gfortran.dg/bounds_check_11.f90
View File

@ -21,5 +21,5 @@ contains
end program test
! { dg-output "At line 18 of file .*" }
! { dg-output "Array reference out of bounds, lower bound of dimension 2 of array 'jp' exceeded .0 < 1." }
! { dg-output "Index '0' of dimension 2 of array 'jp' below lower bound of 1" }

2
gcc/testsuite/gfortran.dg/bounds_check_7.f90
View File

@ -12,4 +12,4 @@ program test
integer x(42)
call foo(x)
end program test
! { dg-output "Array reference out of bounds .* lower bound of dimension 1 exceeded" }
! { dg-output "Index '0' of dimension 1 of array 'a' below lower bound of 1" }

2
gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90
View File

@ -4,4 +4,4 @@
integer x(1)
x(2) = x(1) ! { dg-warning "out of bounds" }
end
! { dg-output "out of bounds for array 'x', upper bound of dimension 1 exceeded." }
! { dg-output "Index '2' of dimension 1 of array 'x' above upper bound of 1" }