program EightBytIntTest use typeSizes implicit none integer (kind = EightByteInt) :: Eight integer :: defaultInt print *, "Bit size of default int is", bit_size(defaultInt) print *, "Kind parameter for EightByteInt is", EightByteInt print *, "Bit size of eight byte int is", bit_size(Eight) end program EightBytIntTest