Next: BTEST, Previous: BESYN, Up: Intrinsic Procedures
BIT_SIZE
— Bit size inquiry functionBIT_SIZE(I)
returns the number of bits (integer precision plus sign bit)
represented by the type of I.
RESULT = BIT_SIZE(I)
I | The type shall be INTEGER(*) .
|
INTEGER(*)
program test_bit_size integer :: i = 123 integer :: size size = bit_size(i) print *, size end program test_bit_size