| ! { 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 "Index '0' of dimension 2 of array 'jp' below lower bound of 1" } |
| |
