diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_11.f90 | 25 |
2 files changed, 31 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index abfa7704ef7..4ec1dc3a349 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,11 @@ +2007-10-14 Tobias Burnus <burnus@net-b.de> + + PR fortran/33745 + * gfortran.dg/bounds_check_11.f90: New. + 2007-10-14 Andrew Pinski <pinskia@gmail.com> - PR c++/30303 + PR c++/30303 * g++.dg/other/ctor1.C: New test. * g++.dg/other/ctor2.C: New test. * g++.dg/other/dtor1.C: New test. diff --git a/gcc/testsuite/gfortran.dg/bounds_check_11.f90 b/gcc/testsuite/gfortran.dg/bounds_check_11.f90 new file mode 100644 index 00000000000..648e1d3ab61 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/bounds_check_11.f90 @@ -0,0 +1,25 @@ +! { dg-do run } +! { dg-options "-fbounds-check" } +! { dg-shouldfail "Array bound checking" } +! PR fortran/33745 +! +! Don't check upper bound of assumed-size array +! + +program test + implicit none + integer, parameter :: maxss=7,maxc=8 + integer :: jp(2,maxc) + call findphase(jp) +contains + subroutine findphase(jp) + integer, intent(out) :: jp(2,*) + jp(2,2:4)=0 + jp(2,0:4)=0 ! { dg-warning "out of bounds" } + jp(3,1:4)=0 ! { dg-warning "out of bounds" } + end subroutine +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." } + |