Clicky
Showing changes from revision #2 to #3:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
return the kind value of the smallest integer type that can represent all values ranging from (exclusive) to (exclusive). If there is no integer kind that accommodates this range, (削除) selected_int_kind(i) (削除ここまで)(追記) selected_int_kind(r) (追記ここまで)selected_int_kind
returns .
Fortran 95 and later
Transformational function
result = selected_int_kind(i)
result = selected_int_kind(r)
(追記ここまで)
(削除) i (削除ここまで)(追記) 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