program main
  implicit none
  integer i(4)
  call sub(i)
end program

subroutine sub(i)
  implicit none
  integer i(*)
  print *, i(1) ! 初期化されていない i(1) を参照している！
end subroutine