3 print *, iand(z
'1234', z
'3456') ! { dg-error "cannot both be" }
4 print *, and(z
'1234', z
'3456') ! { dg-error "cannot both be" }
5 print *, ieor(z
'1234', z
'3456') ! { dg-error "cannot both be" }
6 print *, xor(z
'1234', z
'3456') ! { dg-error "cannot both be" }
7 print *, ior(z
'1234', z
'3456') ! { dg-error "cannot both be" }
8 print *, or(z
'1234', z
'3456') ! { dg-error "cannot both be" }