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