mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-11-27 07:30:33 +08:00
17 lines
481 B
Fortran
17 lines
481 B
Fortran
program EightBytIntTest
|
|
use typeSizes
|
|
implicit none
|
|
|
|
integer (kind = EightByteInt) :: Eight
|
|
integer :: defaultInt
|
|
|
|
print *, "Kind parameter for EightByteInt is", EightByteInt
|
|
print *, "Bit size of eight byte int is", bit_size(Eight)
|
|
contains
|
|
subroutine EightByteIntProcedure(input)
|
|
integer (kind = EightByteInt), intent( in) :: input
|
|
|
|
print *, int(input)
|
|
end subroutine EightByteIntProcedure
|
|
end program EightBytIntTest
|