! { dg-do run } ! Test that the mask is properly converted to the kind type of j in ibits. program ibits_test implicit none integer(8), parameter :: n = z'00000000FFFFFFFF' ! { dg-warning "BOZ literal at .1. outside a DATA statement" } integer(8) i,j,k,m j = 1 do i=1,70 j = ishft(j,1) + 1 k = ibits(j, 0, 32) m = iand(j,n) if (k /= m) call abort end do end program ibits_test