1! { dg-do compile }
2program a
3   integer :: i = 42
4   integer l
5   l = ibset(i, -1)  ! { dg-error "must be nonnegative" }
6   l = ibset(i, 65)  ! { dg-error "must be less than" }
7end program a
8