! This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/SelIntKind.f90
!
module someints
! Illustrates selected_int_kind
! F-Compiler compatible.
 Implicit none
 integer, public, parameter :: II = selected_int_kind(8)
! kind parm 8 implies n may be as big as 10**8
 integer, public, parameter ::  n = 111_II
end module someints

program selkind
use someints
integer, dimension(5) :: test
integer :: i, k

Do i=1,size(test)
 test(i)=i**2
end do

k=n
print *, "k=",k
print *, "II=",II

end program selkind