mirror of
https://github.com/Unidata/netcdf-c.git
synced 2025-01-12 15:45:21 +08:00
12 lines
377 B
Fortran
12 lines
377 B
Fortran
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
|