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
subroutine eightbyteintprocedure(input)