1 logical bit 2 i = 0 3 call bis(30, i) 4 write(*,*) i, bit(30, i), bit(4, i) 5 call bic(30, i) 6 write(*,*) i, bit(0, i) 7 call bis(0, i) 8 write(*,*) i 9 end 10