program ex0433
implicit none
  integer :: a=1
  real    :: b=2
  real    :: c
  c=a ! 整數賦值給浮點數的操作會自動轉換
  write(*,"(F5.2)") c
  c=a/b ! 因為除數跟被除數類型不同, 計算的結果會以浮點數來表示.
  write(*,"(F5.2)") c 
end