program ex0309
 implicit none
 integer :: A = 2, B = 1
 real :: C
 C = B / A
 write(*,*) C
 stop
 end program ex0309