SELECTED_UNSIGNED_KIND (The GNU Fortran Compiler) (original) (raw)

program large_unsigned integer,parameter :: k5 = selected_unsigned_kind(5) integer,parameter :: k15 = selected_unsigned_kind(15) unsigned(kind=k5) :: i5 unsigned(kind=k15) :: i15

print *, huge(i5), huge(i15) end program large_unsigned