program ch0505
implicit none
integer :: i
real :: r
character*1 :: c
logical :: l
complex :: cp
   print *,' integer ',kind(i)
   print *,' real ',kind(r)
   print *,' char ',kind(c)
   print *,' logical ',kind(l)
   print *,' complex ',kind(cp)
end program ch0505