gcc/testsuite/gfortran.dg/boz_iand_1.f90

   1 ! { dg-do compile }
   2 program foo
   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" }
   9 end program foo
  10