5 integer (kind = EightByteInt) :: Eight
8 print *,
"Kind parameter for EightByteInt is",
eightbyteint 9 print *,
"Bit size of eight byte int is", bit_size(eight)
12 integer (kind = EightByteInt),
intent( in) :: input
integer, parameter eightbyteint
subroutine eightbyteintprocedure(input)