8.38 BTEST — Функция проверки бита

Описание:

BTEST(I,POS) возвращает логическое значение .TRUE., если бит в позиции POS переменной I установлен. Нумерация битов начинается с 0.

Стандарт:

Fortran 95 и позднее

Класс:

Элементарная функция

Синтаксис:

RESULT = BTEST(I, POS)

Аргументы:

I	Тип должен быть INTEGER.
POS	Тип должен быть 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