9.47 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