SELECTED_INT_KIND — Choose integer kindSELECTED_INT_KIND(R) return the kind value of the smallest integer
type that can represent all values ranging from -10^R (exclusive)
to 10^R (exclusive). If there is no integer kind that accommodates
this range, SELECTED_INT_KIND returns -1.
RESULT = SELECTED_INT_KIND(R)
| R | Shall be a scalar and of type INTEGER.
|
program large_integers
integer,parameter :: k5 = selected_int_kind(5)
integer,parameter :: k15 = selected_int_kind(15)
integer(kind=k5) :: i5
integer(kind=k15) :: i15
print *, huge(i5), huge(i15)
! The following inequalities are always true
print *, huge(i5) >= 10_k5**5-1
print *, huge(i15) >= 10_k15**15-1
end program large_integers