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