btest(x, pos): Bit Test at Position

Bit test.

Declaration

Syntax

retval = btest(x, pos);
elemental logical function btest(x, pos)

Arguments

x and pos are integer input values. Both input values are of same kind. pos represents position in x.

Return values

The return value is of type logical.

Описание

btest(x, pos) calculates if pos bit in input integer value x is set. The counting of the bits starts at 0, at least significant bit (LSB) i.e., the rightmost bit in x.

If pos less than 0 or greater than bit_size(), btest(x, pos) errors with not allowed message.

Types

Supported input types is integer of 32 bit and 64 bit size.

interface btest
    module procedure btest32, btest64
end interface

contains

interface
    elemental logical function btest32(x, pos)
	integer(int32), intent(in) :: x
	integer, intent(in) :: pos
	end function

    elemental logical function btest64(x, pos)
	integer(int64), intent(in) :: x
	integer, intent(in) :: pos
	end function
end interface

Examples

program intrinsics_btest
    implicit none
    print *, btest(2, 0)
end program

Result:

false

See Also