program main
  implicit none
  integer a(3)
  call sub(a)
  print *, a
contains
  subroutine sub(x)
    integer x(:), y(1)
    y = 99
    x = y ! x と y の寸法が異なる！
  end subroutine
end program