!=======================================================================
!   FILE: TEST34.F90
!   DATE: 8 June 2003
!
!   TEST: Array statment stores beyond bounds of that array.
!
!   Contact: H. D. Knoble
!=======================================================================
program test
integer, dimension(3) :: x
call suba(x,3)
write(*,*) 'X=',X
write(*,*) 'No run-time diagnostic.'
end
subroutine suba(y,n)
integer :: n
integer, dimension(n) :: y
!---Following array operation is illegal because 4 exceeds the
!   calling and called dimension.
y(1:4)=5
return
end