program ch1202 implicit none complex :: c=cmplx(1.0,1.0) real :: r=10.9 integer :: i=-27 print *,abs(c) print *,abs(r) print *,abs(i) end program ch1202