EightByteIntTest-2.f90
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

Return to the Main Unidata NetCDF page.