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.
     I = 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