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