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