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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-4.9.3/gfortran/BTEST.html