PROGRAM ch0805
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 ch0805