! { dg-do compile }
! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81509
!
program foo
logical :: a = .false.
integer :: i = 42
integer(8) :: k
k = iand(z'aaaa', z'1234')    ! { dg-error "cannot both be BOZ literal" }
k = and(z'aaaa', z'1234')     ! { dg-error "cannot both be BOZ literal" }
k = and(1, z'1234')
k = and(i, z'1234')
k = ieor(z'ade',i)
k = ior(i,z'1111')
k = ior(i,k)                  ! { dg-error "different kind type parameters" }
k = and(i,k)                  ! { dg-error "must be the same type" }
k = and(a,z'1234')            ! { dg-error "must be INTEGER" }
end program foo