gcc/testsuite/gfortran.dg/pr81509_1.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { 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