!
      PROGRAM P26
!
!
!     CONVERSIONS IN THE
!     ASSIGNMENT STATEMENT
!
      IMPLICIT NONE
      INTEGER :: I, J
      REAL :: A, B
!
      PRINT *, 'This is Program >> P26  - Conversion Rules'
!
!
!     INTEGER = INTEGER
!
      I = 1
      J = I
      PRINT *,' I =',I, '  J =',J
!
!     REAL = REAL
!
      A = 1.5
      B = A
      PRINT *,' A=',A
      PRINT *,' B=',B
!
!     REAL = INTEGER
!
      A = 2
      B = I
      PRINT *,' A=',A
      PRINT *,' B=',B
!
!     INTEGER = REAL
!
      I = 1.5
      J = A
      PRINT *,' I =',I, '  J =',J
!
      STOP
      END PROGRAM P26