program kinds

use f90_kind

integer(kind=int8) :: i8
real(kind=double) :: ddd

print *, huge(i8), huge(ddd)

end program kinds
