! { dg-do run }
program foo
   integer :: k = 42
   n = iand(k, z'3456'); if (n /=  2) stop 1
   n = iand(z'1234', k); if (n /= 32) stop 2
   n =  and(k, z'3456'); if (n /=  2)  stop 3
   n =  and(z'1234', k); if (n /=  32) stop 4
   n = ieor(k, z'3456'); if (n /= 13436) stop 5
   n = ieor(z'1234', k); if (n /=  4638) stop 6
   n =  xor(k, z'3456'); if (n /= 13436) stop 7
   n =  xor(z'1234', k); if (n /=  4638) stop 8
   n =  ior(k, z'3456'); if (n /= 13438) stop 9
   n =  ior(z'1234', k); if (n /=  4670) stop 10
   n =   or(k, z'3456'); if (n /= 13438) stop 11
   n =   or(z'1234', k); if (n /=  4670) stop 12
end program foo