＜IAND Example Program＞

Program iand_example
    Integer :: a(3), b(3)
    a = [ 12,65549,263 ]
    b = [ -1,1158,-3 ]
    Print 1, a
1  Format(3(1X,Z8))
    Print 1, b
    Print 1, Iand(a,b)
End Program

■ Execution Results

        C    1000D      107
 FFFFFFFF      486 FFFFFFFD
        C        4      105