PROGRAM mykinds

  IMPLICIT NONE
  INTEGER :: i
  REAL :: x

  WRITE(*,*) "kind(0) =",kind(0)
  WRITE(*,*) "kind(0.0) =",kind(0.0)
  WRITE(*,*) "kind(.false.) =",kind(.false.)
  WRITE(*,*) "kind('a') =",kind("a")
  WRITE(*,*)
  WRITE(*,*) "kind(i) =",kind(i)
  WRITE(*,*) "kind(x) =",kind(x)

END PROGRAM mykinds
