program main
  implicit none
  integer i, j
  equivalence(i, j)
  j = 0
  do i = 1, 10
    j = j + 1 ! ここで値を変更してはいけない！
    print *, i
  end do
end program