program whatkinds

  implicit none
  integer :: i, ik

!-- integer kinds
  i = 1
  do 
    ik = selected_int_kind(i)
    write(*,*) "i =",i,"selected_int_kind(",i,") = ",ik
    if (ik < 0) exit 
    i = i+1
  enddo

!-- real kinds
  i = 1
  do 
    ik = selected_real_kind(i)
    write(*,*) "i =",i,"selected_real_kind(",i,") = ",ik
    if (ik < 0) exit 
    i = i+1
  enddo

!-- real kinds
!  i = 1
!  do 
!    ik = selected_real_kind(5,i)
!    write(*,*) "i =",i,"selected_real_kind(5,",i,") = ",ik
!    if (ik < 0) exit 
!    i = i+1
!  enddo

end program whatkinds