| ! { dg-do run } | |
| ! https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81509 | |
| program foo | |
| logical :: a = .false. | |
| integer :: i = 42 | |
| integer(8) :: k = 42 | |
| if (kind(ieor(z'ade',i)) /= 4) call abort | |
| if (kind(ior(i,z'1111')) /= 4) call abort | |
| if (kind(ior(1_8,k)) /= 8) call abort | |
| if (kind(iand(k,b'1111')) /= 8) call abort | |
| end program foo | |