PROGRAM CH0602
      IMPLICIT LOGICAL (A-Z)
      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