Clicky
Showing changes from revision #3 to #4:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
btest(i,pos)
returns logical .true.
if the bit at pos
in i
is set.
Fortran 95 and later
result = btest(i, pos)
i
- The type shall be integer
.pos
- The type shall be integer
.(追記) A (追記ここまで)(追記) value (追記ここまで)(追記) of (追記ここまで)(追記) zero (追記ここまで)(追記) refers (追記ここまで)(追記) to (追記ここまで)(追記) the (追記ここまで)(追記) least (追記ここまで)(追記) significant (追記ここまで)(追記) bit. (追記ここまで)The return value is of type 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
ibclr, ibits, ibset, iand, ior, ieor, mvbits