1! { dg-do run } 2! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81509 3program foo 4logical :: a = .false. 5integer :: i = 42 6integer(8) :: k = 42 7if (kind(ieor(z'ade',i)) /= 4) call abort 8if (kind(ior(i,z'1111')) /= 4) call abort 9if (kind(ior(1_8,k)) /= 8) call abort 10if (kind(iand(k,b'1111')) /= 8) call abort 11end program foo 12 13