3 subroutine foo(i
, j
, k
)
7 integer(4), intent(in
) :: i
, j
8 integer(8), intent(in
) :: k
10 print *, dshiftl(i
, j
, 134) ! { dg-error "must be less than or equal" }
11 print *, dshiftl(z
'FFF', j
, 134) ! { dg-error "must be less than or equal" }
12 print *, dshiftl(i
, j
, -10) ! { dg-error "must be nonnegative" }
13 print *, dshiftl(z
'FFF', z
'EEE', 10) ! { dg-error "cannot both be" }
14 print *, dshiftl(z
'FFF', j
, 10)
15 print *, dshiftl(i
, z
'EEE', 10)
16 print *, dshiftl(i
, j
, 10)
17 print *, dshiftl(i
, k
, 10) ! { dg-error "must be the same type and kind" }
18 print *, dshiftl(k
, j
, 10) ! { dg-error "must be the same type and kind" }
19 print *, dshiftl(i
, j
, k
)
21 print *, dshiftr(i
, j
, 134) ! { dg-error "must be less than or equal" }
22 print *, dshiftr(z
'FFF', j
, 134) ! { dg-error "must be less than or equal" }
23 print *, dshiftr(i
, j
, -10) ! { dg-error "must be nonnegative" }
24 print *, dshiftr(z
'FFF', z
'EEE', 10) ! { dg-error "cannot both be" }
25 print *, dshiftr(z
'FFF', j
, 10)
26 print *, dshiftr(i
, z
'EEE', 10)
27 print *, dshiftr(i
, j
, 10)
28 print *, dshiftr(i
, k
, 10) ! { dg-error "must be the same type and kind" }
29 print *, dshiftr(k
, j
, 10) ! { dg-error "must be the same type and kind" }
30 print *, dshiftr(i
, j
, k
)
