program ch0506a
implicit none
integer, parameter::bigint= selected_int_kind(18)
integer, parameter::long  = selected_real_kind(15,307)
!
integer        :: i1
integer(bigint):: i2
real           :: r1
real(long)     :: r2
! integers
   print*,'for i1 kind = ',kind(i1),'huge = ',huge(i1)
   print*,'for i2 kind = ',kind(i2), 'huge = ',huge(i2)
   print*
!reals   
   print*,'for r1 kind = ',kind(r1),'huge = ',huge(r1),' precision = ',precision(r1),' epsilon = ',epsilon(r1)
   print*,'for r2 kind = ',kind(r2),'huge = ',huge(r2),' precision = ',precision(r2),' epsilon = ',epsilon(r2)
end program ch0506a