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

Описание:

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

Стандарт:

Fortran 90 и более поздние версии, имеет перегрузки, являющиеся расширениями GNU

Класс:

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

Синтаксис:

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

Указанные имена:

Имя	Аргумент	Тип возвращаемого значения	Стандарт
BTEST(I,POS)	INTEGER I,POS	LOGICAL	Fortran 95 и более поздние версии
BBTEST(I,POS)	INTEGER(1) I,POS	LOGICAL(1)	Расширение GNU
BITEST(I,POS)	INTEGER(2) I,POS	LOGICAL(2)	Расширение GNU
BJTEST(I,POS)	INTEGER(4) I,POS	LOGICAL(4)	Расширение GNU
BKTEST(I,POS)	INTEGER(8) I,POS	LOGICAL(8)	Расширение GNU