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

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