program main
  implicit none
  integer, parameter :: x = 99
  call sub(x)
  print *, x
end program

subroutine sub(i)
  implicit none
  integer i
  i = 10 ! i は定数なので変更してはいけない！
end subroutine