program ex0433
implicit none
  integer :: a=1
  real    :: b=2
  real    :: c
  c=a ! 整數(shù)賦值給浮點(diǎn)數(shù)的操作會(huì)自動(dòng)轉(zhuǎn)換
  write(*,"(F5.2)") c
  c=a/b ! 因?yàn)槌龜?shù)跟被除數(shù)類型不同, 計(jì)算的結(jié)果會(huì)以浮點(diǎn)數(shù)來表示.
  write(*,"(F5.2)") c 
end