program main
  implicit none
  integer x(3)
  x = 99
  call sub(x)
end program

subroutine sub(i)
  implicit none
  integer i(*)
  i(4) = 100 ! 配列の範囲外を参照している！
end subroutine