PROGRAM kind_int
  IMPLICIT NONE
  INTEGER :: i
  WRITE(*,*)
  WRITE(*,*) ' Kind Value for integers with range +/- 10**I '
  WRITE(*,*)
  DO i = 1, 10
    WRITE(*, *) " SELECTED_INT_KIND(",i,") = ", &
             SELECTED_INT_KIND(i)
  END DO
  STOP
END PROGRAM kind_int