program ex0813
implicit none
  real a
  common a ! 把浮點(diǎn)數(shù)a放在全局變量中
  a = 1.0
  call ShowCommon()
  stop
end

subroutine ShowCommon()
implicit none
  integer a
  common a ! 把整數(shù)a放在全局變量中
  write(*,*) a
  return
end