blob: 45d8c39e56d1bee607b097c21d3a4a186752eab6 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|
