11 ! These should compile.
18 ! These should issue an error.
20 j = ishft(m, 640) ! { dg-error "absolute value of SHIFT" }
21 j = ishftc(m, 640) ! { dg-error "absolute value of SHIFT" }
22 j = ishft(m, -640) ! { dg-error "absolute value of SHIFT" }
23 j = ishftc(m, -640) ! { dg-error "absolute value of SHIFT" }
25 ! abs(SHIFT) must be <= SIZE
32 j = ishftc(m, 10, 2)! { dg-error "absolute value of SHIFT" }
33 j = ishftc(m, 10, 2)! { dg-error "absolute value of SHIFT" }
34 j = ishftc(m, -10, 2)! { dg-error "absolute value of SHIFT" }
35 j = ishftc(m, -10, 2)! { dg-error "absolute value of SHIFT" }
37 j = ishftc(m, 1, -2) ! { dg-error "must be positive" }