PROGRAM ch0802
IMPLICIT NONE
REAL :: A,B,C
INTEGER :: I
  A = 1.5
  B = 2.0
  C = A / B
  I = A / B
  PRINT *,A,B
  PRINT *,C
  PRINT *,I
END PROGRAM ch0802