＜BIT_SIZE Example Program＞

Program bit_size_example
  Integer,Parameter :: i8 = Selected_Int_Kind(2)
  Integer(i8),Pointer :: p
  Print *,Bit_Size(p)
End Program

■ Execution Results

 8