编辑代码

program main
  implicit none
  integer :: a=1
  call sub1()
  write(*,"('a=',I2)")a
  stop
end program main

subroutine sub1()
  implicit none
  integer :: a=2
  write(*,"('a=',I2)")a
  return
end subroutine sub1