PROGRAM CH1202
      IMPLICIT LOGICAL (A-Z)
      COMPLEX C
      REAL R
      INTEGER I
      C=CMPLX(1.0,1.0)
      R=10.9
      I=-27

         PRINT *,ABS(C)
         PRINT *,ABS(R)
         PRINT *,ABS(I)
      END PROGRAM CH1202