PROGRAM ch1502
IMPLICIT NONE
COMPLEX :: C=(1,1)
REAL    :: R=10.9
INTEGER :: I=-27
  PRINT *,ABS(C)
  PRINT *,ABS(R)
  PRINT *,ABS(I)
END PROGRAM ch1502