3 ! Contributed by G.Steinmetz
7 logical, parameter :: a(*) = [(btest(8_4,i
), i
=-1,-1)] ! { dg-error "nonnegative" }
8 integer, parameter :: b(*) = [(ibclr(8_4,i
), i
=-1,-1)] ! { dg-error "nonnegative" }
9 integer, parameter :: c(*) = [(ibset(8_4,i
), i
=-1,-1)] ! { dg-error "nonnegative" }
10 logical, parameter :: d(*) = [(btest(8_1,i
), i
= 8, 8)] ! { dg-error "must be less" }
11 integer, parameter :: e(*) = [(ibclr(8_2,i
), i
=16,16)] ! { dg-error "must be less" }
12 integer, parameter :: f(*) = [(ibset(8_4,i
), i
=32,32)] ! { dg-error "must be less" }
13 integer, parameter :: g(*) = [(ibits(8_4,i
,1),i
=-1,-1)] ! { dg-error "nonnegative" }
14 integer, parameter :: h(*) = [(ibits(8_4,1,i
),i
=-1,-1)] ! { dg-error "nonnegative" }
15 integer, parameter :: j(*) = [(ibits(8_4,i
,i
),i
=32,32)] ! { dg-error "must be less" }