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 (削除) selected_int_kind(i) (削除ここまで)(追記) selected_int_kind(r) (追記ここまで)(削除) -10^I (削除ここまで)(追記) -10^R (追記ここまで) (exclusive) to (削除) 10^I (削除ここまで)(追記) 10^R (追記ここまで) (exclusive). If there is no integer kind that accommodates this range, 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