＜BTEST Example Program＞

Program btest_example
  Integer :: k = Ibset(5, 10)
  Do i=0, Bit_Size(k)-1
    If (Btest(k, i)) Then
      Print 1, i
1     Format(1X, 'Bit ', I0, ' is set')
    End If
  End Do
End Program

■ Execution Results

 Bit 0 is set
 Bit 2 is set
 Bit 10 is set