### 8.38 `BTEST` — Bit test function

Description:
  `BTEST(I,POS)` returns logical `.TRUE.` if the bit at POS in I is set. The counting of the bits starts at 0.
Standard:
  Fortran 95 and later
Class:
  Elemental function
Syntax:
  `RESULT = BTEST(I, POS)`
Arguments:

  I | The type shall be `INTEGER`.
  POS | The type shall be `INTEGER`.

Return value:
  The return value is of type `LOGICAL`
Example:

                program test_btest
                    integer :: i = 32768 + 1024 + 64
                    integer :: pos
                    logical :: bool
                    do pos=0,16
                        bool = btest(i, pos)
                        print *, pos, bool
                    end do
                end program test_btest