BIT_SIZE — Bit size inquiry function ¶RESULT = BIT_SIZE(I)
BIT_SIZE(I) returns the number of bits (for integers, the precision
plus the sign bit) represented by the type of I. The result of
BIT_SIZE(I) is independent of the actual value of I.
Inquiry function
| I | The type shall be INTEGER or UNSIGNED. |
The return value is of type INTEGER
program test_bit_size
integer :: i = 123
integer :: size
size = bit_size(i)
print *, size
end program test_bit_size
Fortran 90 and later, extension for UNSIGNED (see Unsigned integers)