Next: C_ASSOCIATED, Previous: BLT, Up: Intrinsic Procedures
BTEST
— Bit test functionBTEST(I,POS)
returns logical .TRUE.
if the bit at POS
in I is set. The counting of the bits starts at 0.
RESULT = BTEST(I, POS)
I | The type shall be INTEGER .
|
POS | The type shall be INTEGER .
|
LOGICAL
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
Name | Argument | Return type | Standard
|
BTEST(I,POS) | INTEGER I,POS | LOGICAL | Fortran 95 and later
|
BBTEST(I,POS) | INTEGER(1) I,POS | LOGICAL(1) | GNU extension
|
BITEST(I,POS) | INTEGER(2) I,POS | LOGICAL(2) | GNU extension
|
BJTEST(I,POS) | INTEGER(4) I,POS | LOGICAL(4) | GNU extension
|
BKTEST(I,POS) | INTEGER(8) I,POS | LOGICAL(8) | GNU extension
|