blob: 45d8c39e56d1bee607b097c21d3a4a186752eab6 [file] [log] [blame]
! { dg-do compile }
program foo
print *, iand(z'1234', z'3456') ! { dg-error "cannot both be" }
print *, and(z'1234', z'3456') ! { dg-error "cannot both be" }
print *, ieor(z'1234', z'3456') ! { dg-error "cannot both be" }
print *, xor(z'1234', z'3456') ! { dg-error "cannot both be" }
print *, ior(z'1234', z'3456') ! { dg-error "cannot both be" }
print *, or(z'1234', z'3456') ! { dg-error "cannot both be" }
end program foo