AND

Elemental Intrinsic Function (Generic): See IAND.

Example

  INTEGER(1) i, m
  INTEGER result
  INTEGER(2) result2
  i = 1
  m = 3
  result = AND(i,m) ! returns an integer of default type
          ! (INTEGER(4) unless reset by user) whose
          ! value = 1
  result2 = AND(i,m) ! returns an INTEGER(2) with value = 1